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ABSTRACT 


Conventional  computer  architectures  do  not  allow  us  to  unambiguously 
express  our  intent  in  a  computer  program.  The  combination  of  artificial  data 
types  and  resource  models  force  ambiguity  and  data  structure  overloading. 
For  example,  the  semantics  of  a  stack  combine  those  of  an  array  structure 
and  a  last-in-first-out  queue,  while  the  entire  stack  structure  is 
implemented  in  computer  memory  as  a  group  of  fixed  length  cells.  This  and 
other  machine-data  type  dependencies  can  markedly  hamper  software 
portability.  To  overcome  these  obstacles,  a  means  of  formally  specifying  a 
computing  machine's  physical  resources  in  an  implementation  independent 
way  has  been  proposed.  Creating  an  abstraction  of  the  computer's  physical 
resources  in  this  manner  lets  the  Implementor  of  the  specifications  clearly 
determine  the  Intent  of  programs  written  for  it.  This  abstraction  has  come 
to  be  known  as  the  Abstract  Machine  or  AM. 

One  implementation  of  these  resource  specifications  has  already  been 
accomplished.  Several  programming  tools,  such  as  a  programming  language 
compiler  and  a  visual  display  device,  have  also  been  created  (In  software)  for 
use  with  this  AM's  implementatloa  At  present,  however,  there  are  no  mears 
for  interactively  displaying  and  altering  the  storage  resources  of  the 
Abstract  Machine  for  debuggir^  purposes.  For  the  current  AM 
impiementation,  ihe  bulk  of  the  automated  debugging  tools  consist  of 
assembler  code  tracing  and  listing  options  that  can  be  chosen  at  run  time. 
The  goal  of  this  thesis  is  to  build  an  Interactive  debugger  for  the  Abstract 
Machine  near  the  assembler  code  level.  This  should  expedite  the  process  of 
producing  relatively  error-free,  executable  programs  while  using  a  smaller 


amount  of  time  and  effort.  The  debugger  will  serve  as  another  building  block 
in  the  creation  of  a  complete  programming  environment  for  the  Abstract 
Machine.  This  in  turn  will  assist  in  the  general  study  of  minimizing  the 
software  portability  problems  that  arise  because  of  machine-software 
dependencies. 
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I.  INTRODUCTION 


In  the  days  when  the  assembly  language  programmer  was  king  and 
higher-level  programming  languages  were  still  unimplemented  concepts  on 
the  "drawing  board."  crude  were  the  tools  the  programmer  could  wield  in  his 
programming  environment  to  quickly  conquer  coding  problems.  During  this 
period,  CPU  time  was  money,  thus  efficient  programs  were  a  must  (as  well  as 
a  source  of  pride  and  means  of  security  for  the  programmer).  The 
programmer  was  expected  to  massage  the  computing  machine's  stacks, 
registers  and  memory  to  eke  out  as  efficient  a  program  as  possible. 

To  write  efficient  programs,  the  programmer  typically  included  in  his 
program  code  assumptions  about  his  computing  machine's  physical 
resources.  These  assumptions,  such  as  the  number  of  registers  available,  the 
machine's  representation  of  data  types,  and  the  physical  Implementation  of 
the  stacks,  were  "hardwired"  Into  the  programmer's  code.  Of  course,  errors 
in  the  program  required  intimate  knowledge  of  all  these  assumptions.  Events 
such  as  upgrading  the  machine  or  replacing  it  with  one  of  a  slightly  different 
architecture  typically  caused  program  nightmares  with  previously  "bug-free" 
programs  going  haywire  because  the  resource  assumptions  had  changed.  This 
situation,  unfortunately  caused  even  more  assumptions  to  be  incorporated 
nto  :he  coae.  typically  in  the  form  of  Droqram  'aaicnes. '  'his  rycis,  ■ 
allowed  to  continue,  can  so  disfigure  the  original  intent  of  the  program,  it 
soon  becomes  difficult,  at  best,  to  interpret  It. 

Conventional  computer  architectures  do  not  allow  us  to  unambiguously 
express  our  intent  in  a  computer  program.  The  combination  of  artificial  data 


types  and  artificial  resource  models  force  ambiguity  and  data  structure 
overloading.  For  example,  the  semantics  of  a  stack  combine  those  of  an 
array  structure  and  a  last- in-first-out  queue,  while  the  entire  stack 
structure  is  implemented  in  computer  memory  as  a  group  of  fixed  length 
cells.  This  and  other  machine-data  type  dependencies  can  markedly  hamper 
software  portability.  To  overcome  these  obstacles,  a  means  of  formally 
specifying  a  computing  machine's  physical  resources  in  an  imolementation 
Independent  way  has  been  proposed  (Davis[1984]).  Creating  an  abstraction  of 
the  computer's  physical  resources  in  this  manner  lets  the  implementor  of  the 
specifications  clearly  determine  the  intent  of  programs  written  for  it.  This 
abstraction  has  come  to  be  known  as  the  Abstract  Machine  or  AM. 

One  implementation  of  these  resource  specifications  has  already  been 
accomplished  (Yurchak[1984l).  Several  programming  tools,  such  as  a 
programming  language  compiler  (Ozisik[1986l)  and  a  visual  display  device 
(Hunter! 19851),  have  also  been  created  (in  software)  for  use  with  this  AM's 
implementatioa  At  present,  however,  there  are  no  means  for  Interactively 
displaying  and  altering  the  storage  resources  of  the  Abstract  Machine  for 
debugging  purposes.  The  current  debugging  tools  consist  of  assembler  code 
tracing  and  listing  options  that  can  be  chosen  only  at  run  time.  This  thesis' 
goal  is  to  build  an  interactive  debugger  for  the  Abstract  Machine  near  the 
assembler  code  level.  This  should  expedite  the  process  of  producing 
relatively  error-free.  executaDie  orcgrims  wniie  jsinq  3  smaller  imount  of 
time  and  effort.  The  debugger  will  serve  as  another  building  block  in  the 
creation  of  a  complete  programming  environment  for  the  Abstract  Machine. 
This  in  turn  will  assist  in  the  general  study  of  minimizing  the  software 
portability  problems  that  arise  because  of  machine-software  dependencies. 


II.  BACKGROUND 


A.  THE  PROBLEM 

In  his  Masters  thesis,  Yurchalc[1984]  presented  a  formal  specification  for 
an  Abstract  (computing)  Machine  which  he  called  AM.  This  AM  was  to  be  used 
to  study  and  offer  a  way  of  minimizing  the  problem  of  porting  software  from 
one  computing  machine  to  another. 


Programming  Tools 


Prabiem  Saiiiina  ^OMraction 


The  Semantic  Gap 


Physical  Resource  Rbstraction 


Figure  2.1;  The  Semantic  Gap 


Yurchak[1984]  noted  that  porting  large  programs  between  computing 
Tiacnines  s  an  exoensivg  ordeal  :n  terms  of  programmer  "ime  ana  5Tfor*. 
This  predicament  is  brought  on  because  of  the  wide  semantic  gap  (as  shown 
in  Figure  2.1  above)  between  the  programmer's  problem  solving  abstraction 
(i.e.  programming  languages,  development  tools,  etc.)  and  the  computing 
machine's  physical  resources  abstraction  (i.e.  addresses,  registers,  stacks. 


I 

f 

Vo 
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etc.).  In  his  words,  this  gap  between  the  two  abstractions  was. 
simplistically  speaking,  a  "boundary*  between  the  software  used  by  the 
programmer  to  form  problem  solutions  and  the  hardware  by  which  those 
solutions  are  implemented. 
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Figure  2.2:  Data  Type  Dependency  on  Harduiare  Ualues 


Generally,  a  computing  machine  has  but  a  few  primitive  structures  on 
which  the  rest  of  the  problem  solving  abstraction  is  based.  Typically,  there 
exists  a  strong  bond  between  the  way  data  types  are  implemented  and  the 
manner  in  which  they  are  represented  in  hardware.  For  example,  a  character 
string  is  typically  represented  as  an  array  of  memory  cells,  with  each  cell 
containing  the  corresponding  integer  representation  of  the  corresponding 
character  in  the  character  string.  Figure  2.2  above  depicts  this  relationship. 
If  ‘he  Textual  reoresentation  of  ‘he  values  :n  comouter  memory  were  to  5e 
removed,  the  meaning  of  the  values  could  not  be  determined.  They  could  be 
integers,  memory  addresses  or  numeric  symbols  for  other  artificial  data 
types.  The  context  of  the  values  must  be  determined  before  they  can  be  given 
meaning.  This  situation  typically  leads  to  overloading  of  the  primitive  data 


types  of  the  machine,  allowing  the  programmer  to  treat  one  data  type  as 
another,  thus  compromising  the  data  structure  typing.  This  compromise 
typically  causes  extensive  program  changes  in  the  data  structure  definitions 
when  porting  the  program  from  one  architecture  to  another. 

B.  A  FEASIBLE  SOLUTION:  Afl 

In  proposing  a  solution  to  the  software  portability  problem,  Davis[1984l 
formulated  a  methodology  for  formally  specifying  a  computer's  resources  at 
different  levels  of  abstraction.  His  approach  was  to  develop  formal 
specifications  for  the  functional  interfaces  between  the  resources  of  the 
computing  machine.  In  this  way,  the  user  need  only  be  concerned  with  the 
functional  interface  to  a  particular  abstraction  level  and  not  the  actual 
Interface  implementation,  which  could  be  done  in  hardware  or  software.  To 
ascertain  the  feasibility  of  this  new  methodology,  Yurchak[l984l  designed 
and  implemented  a  test  version  of  the  specifications  for  a  computer 
processor,  which  has  become  to  be  known  as  the  Abstract  Machine. 
Davis[l984l  and  Yurchak[1984l  decided  to  test  the  methodology  at  the 
processor  level  of  abstraction  because,  being  the  most  difficult  to  formally 
describe,  it  would  give  the  most  insi^it  on  the  validity  of  the  approach. 

This  abstract  architecture  treats  each  one  of  the  machine's  physical 
resources  as  a  black  box  and  allows  the  programmer  to  use  the  resources  in 
only  rtie  specifiea  way.  !n  other  words,  'he  specification  details  exactly 
what  resources  mean  and  how  to  use  them,  but  does  not  specify  how  a 
resource  is  to  be  implemented.  With  software  tools  being  written  for 
implementation  on  one  abstract  machine,  software  portability  is  markedly 
improved.  The  AM  serves  as  a  formal  Interface  between  the  programming 
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Figure  2.3:  Narrowing  tne  semantic  Gap 

tools  in  the  environment  and  the  physical  resources  of  the  computing 
machine.  The  AM  programming  tools  will  work  on  any  architecture  as  long  as 
the  AM  specifications  are  properly  Implemented  on  that  architecture.  Figure 
2.3  above  depicts  the  AM  interface  In  the  programming  environment. 

C.  RELATED  RESEARCH 

Several  programming  tools  have  already  been  developed  for  the  AM. 
Hunterll985l  formally  designed  and  specified  a  visual  display  device  for  the 
AM.  Ozisik[1986]  designed  and  implemented  a  subset  C  compiler  which 
produces  AM  assembly  language  code.  Zang[1985l  formally  specified  and 
designed  an  aostrac:  database  asinq  similar  anncioies  Ter  soecifyinq  ‘he  -M. 
Again,  the  goal  of  this  thesis  is  to  create  another  development  tool  for  the 
AM  programming  environment,  namely,  an  interactive  debugger  near  the 
assembly  code  level. 


III.  DESIGN 


Before  presenting  the  design  and  implementation  of  the  AM  interactive 
debugger,  it  is  important  to  make  clear  the  salient  points  behind  the 
specification  of  the  AM.  The  AM  Is  an  abstraction  of  the  physical  resources 
of  a  machine  and,  as  0avisll984l  points  out.  the  methodology  used  to 
formally  specify  that  abstraction  is  representation  inctependent  The  best 
examole  of  this  representation  independence  notion  is  abstract  data  types. 
The  type  'integer'  not  only  implie-  a  set  of  values,  but  3  set  of  operations 
upon  those  values.  This  ’’notion'  can  be  implemented  in  many  different 
contexts,  but  its  intuitive  properties  transcend  implementations  or  physical 
representations.  This  is  the  essence  of  and  the  true  power  behind  the 
Abstract  Machine  concept. 

The  actual  AM  implementation  around  which  the  interactive  debugger  was 
built  is  another  physical  representation  of  this  representation  independence 
notion.  Therefore,  although  one  implementation  Is  presented  In  this  thesis, 
the  formal  specifications  for  the  resource  abstraction  is  adhered  to  (via  the 
programmer  interface  to  the  debugger). 

A.  BASIC  COMPUTER  RESOURCE  ORGANIZATION 

1.  Compuier  Resources 

The  AM  incorporates  the  basic  principles  of  a  von  Neumann  computing 
machine.  It  has  a  memory  for  program  storage  and  instruction  execution, 
sets  of  registers  and  stacks  for  temporary  storage  of  data  values,  and,  of 
course,  a  set  of  data  values.  Yurchak’s[1984l  AM  implementation,  being  an 


abstraction  of  a  computing  machine’s  physical  resources,  can  be  easily 
"reconfigured"  by  changing  the  basic  definitions  of  the  resources  available. 
The  implementation  storage  resources  used  in  developing  the  debugger  were 
as  follows: 

•  Two  memory  segments,  each  with  1024  storage  cells; 

•  One  register  segment  with  thirty- two  storage  cells; 

•  One  stack  segment  with  512  storage  cells; 

•  1022  heap  segments,  each  with  1024  storage  cells. 

The  memory,  registers,  stacks  and  heap  storage  cells,  as  in  any  computing 
machine,  all  hold  defined  data  values.  The  definition  of  AM  data  values, 
however,  differs  slightly  than  the  manner  in  which  they  are  defined  in  other 
computing  systems.  The  AM's  data  values  are  typed  while  a  regular  von 
Neumann  machine's  is  not.  In  other  words,  one  can  determine  what  the  value 
Is  inside  a  storage  location  since  the  value’s  type  is  stored  along  with  it. 
Figure  3.1  on  page  17  shows  an  example  of  a  computer  program  In  this  AM 
implementation  with  its  machine  code  and  assembly  language 
statements.  At  memory  location  '00000000,'  '0190'  Is  the  AM 
implementation's  machine  code  for  INSTRUCTION-TYPE.  It  is  followed  In  the 
memory  address  by  the  instruction  opcode  and  the  operands  for  the  opcode. 
Notice  that  each  operand  value  is  also  linked  to  a  type.  '0160'  Is  machine 
code  for  MEMORY- ADDRESS-TYPE  and  '0170'  for  REGISTER- ADDRESS-TYPE. 

The  AM  ohysical  resources  josiraciion,  being  imolementea  ;n 
software,  Is  built  upon  data  structures.  The  data  structures  used  by 
Yurchak[1984]  were  studied  in  depth  so  that  the  computer's  functional 
capabilities  could  be  extended  and,  thus,  are  presented  in  the  next  sectioa 
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Figure  3.1:  Computer  Program  in  AM  Implementation 

2.  Computer  Data  Structures 

In  order  to  design  a  debugger  that  will  Interact  unobtrusively  with 
the  AM’s  basic  operations,  one  must  understand  the  data  structures  upon 
which  It  was  Implemented.  These  structures  represent  the  All's  data  values, 
memory,  registers,  and  stacks.  All  the  data  structures  used  in  this 
Implementation  were  written  in  the  'C'  programming  language. 

Figure  3.2  on  page  18  shows  the  type  declaration  structures  in 
Yurchak's[1984]  Implementation  for  BOOLEAN,  INTEGER  and  NATURAL  data 
values,  '■fiey  ore  'eoresentative  of  all  the  An's  iasic  aaia  value  structures. 
yurcnaK(i984J  notes  that  the  Ad  storage  resources  are  designed  to  hold  any 
properly  defined  value.  In  typical  computing,  this  poses  little  or  no  problem 
since  all  the  values  are  based  upon  the  overworked  and  overloaded  bit  vector. 


typedef  char  bool; 

typedef  unsigned  int  nat; 

typedef  struct  { 

short  type; 
bool  val;  }  BOOL; 

typedef  struct  { 

short  type; 

long  val;  )  INT; 

typedef  struct  { 

short  type; 
nat  val;  }NAT: 


Figure  3.2:  Data  Ualue  Structures 

AM's  "physical  resources'  required  the  introduction  of  another  "common" 
level  of  abstraction,  a  union  of  ail  the  basic  value  types.  This  abstraction 
was  implemented  using  the  structure  shown  in  Figure  3.3  on  page  19. 

With  the  structures  of  the  data  values  now  presented,  it  is  now  time 
to  examine  the  structures  that  represent  this  implementation's  primary 
physical  resource  abstraction  for  the  memory,  registers  and  stacks.  The 
type  declarations  for  the  structures  are  shown  in  figure  ZA  on  oage  20. 
2acn  resource  is  primarily  a  structure  containing  an  array  which  can  store 
any  value  defined  in  this  AM  implementation.  The  computer’s  memory, 
registers  and  stacks  are  actually  arrays  of  these  resource  structures.  Each 
of  these  arrays  equates  to  a  storage  "segment.” 


typedef  union 
short 
Opcode 
BOOL 
INT 
NAT 
CHAR 
CSTR 
MAD 
RAD 
SAD 
FIL 

INSTR 

MOP 

DOP 

ROP 

BOP 


value  { 

type; 

opcdval; 

boolval; 

intval; 

natval; 

charval: 

cstrval; 

madval; 

radval: 

sadval: 

fileval; 

instrval; 

mopval; 

dopval; 

ropval; 

bopval;  }  VAL; 


Figure  3.3:  Common  URLUE  Rbstraction 


Perhaps  the  most  important  of  the  computer  values  is  the 
INSTRUCTION.  INSTRUCTION  values,  as  in  any  other  computing  machine,  drive 
the  computer  program's  executioa  Its  type  definition  and  logical  structure 
in  ''urcnak'5{1984]  implementation  are  snown  in  Figure  3.5  on  page  2!.  As 
snown  in  the  figure,  the  instruction  is  implemented  as  a  structure  containing 
Its  value  type  and  an  array  of  operand  values.  The  first  element  of  this  array 
is  the  instruction  opcode.  Subsequent  elements  in  the  array  are  the  operands 
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typedef  struct  { 
int  siz2: 

VAL  ***val;  }  memseg; 

typedef  struct  { 
int  num; 

VAL  ****val:  }  regs2g; 

typedef  struct  { 
int  size; 

long  sp; 

VAL  *‘’*val;  1  stkseg; 

Figure  3.4:  Primary  Resource  Structures 

(AM  data  values)  for  the  instructions.  Yurchak[1984]  implemented  the 
instruction  value  so  that  the  first  digit  of  the  opcode  indicated  the  number 
of  operands  the  instruction  required.  By  his  design,  the  opcode  was  also 
considered  as  one  of  the  operands.  It  is  important  to  note  that  the 
instruction  type  definition  (Figure  3.5)  and  the  common-value  type 
definition  (Figure  3.3)  are  recursively  defined  in  terms  of  each  other.  This 
facilitates  converting  from  a  basic  instruction  value,  stored  In  memory,  to 
an  executable  Instruction  at  the  programming  level  of  abstraction. 

a.  DESIGN  OF  THE  iNTERACTIVE  DEBUGGER 
I.  Philosoohu 

As  stated  in  Chapter  1,  the  computer’s  current  debugging  facility 
consists  of  a  trace  option  that  can  be  specified  at  computer  "startup."  This 


typedef  struct  { 

'  short  type; 

union  value  **val:  }  IN5TR: 


Figure  3.5:  Structure  of  Inttruction  Uolue 

trace  facility  was,  however,  designed  more  for  providing  debugging 
diagnostics  about  the  computer's  internal  functioning  than  for  debugging  the 
user's  program.  The  trace  could  only  be  turned  on  at  the  beginning  of 
program  execution  and  could  only  be  turned  off  by  program  termination.  This 
facility  alone  clearly  does  not  provide  the  AM  computer  programmer  with  an 
adequate  program  debugging  environment. 

Wray[1984]  notes  that  a  microcomputer  debugging  environment 
should  have  the  '"ol lowing  basic  functions: 

•  Single-step  program  execution; 

•  Breakpoints  in  program  execution; 

•  Register  Display/Modification; 
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•  flemory  Display/Modificatioa 

This  basic  suite  of  .debugging  facilities  gives  the  programmer  the  capability 
to  'disassemble*  and  examine  his  program  and  the  machine  state  in  discrete, 
well  defined  steps.  This  gives  the  programmer  a  means  of  quickly  identifying 
and  correcting  program  logic  errors  with  a  minimum  of  time  and  effort.  The 
interactive  debugger  for  the  AM  was  designed  to  provide  all  of  the  above 
facilities.  To  give  the  programmer  an  added  degree  of  freedom  in  the 
debugging  environment,  the  following  capabilities  were  also  incorporated 
into  the  design  of  the  AM  debugger; 

•  Program  Execution  Trace; 

•  Program  Counter  Display/Modification. 

The  program  execution  trace,  unlike  the  old  trace  facility,  shows  just  the 
instruction  about  to  be  executed.  Allowing  the  programmer  to  see  and 
change  the  program  counter  allows  the  testing  of  different  program 
execution  paths  without  having  to  terminate  program  execution,  changing  its 
textual  representation,  and  recompiling  the  program  for  executioa  This  is  in 
accord  with  the  philosophy  of  providing  a  debugging  environment  that 
facilitates  quick  detection  and  correction  of  coding  (logic)  errors. 

Yurchak's[1984]  AM  implementation  is  designed  to  be  easily 
reconfigurable  by  changing  the  basic  array  definitions  of  the  resources 
available.  The  essence  of  this  design  objective  was  carried  over  into  the 
aesign  ci  -he  debugger.  A  reconfiguration  of  the  computer's  resources  in  the 
AM  is  acknowledged  by  the  debugger  while  performing  its  operations.  The 
basic  definitions  for  the  debugger  may  also  be  easily  reconfigured  for,  say, 
allowing  more  program  breakpoints  or  increasing  the  maximum  integer  the 
debugger  assumes. 
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2.  Debugger  Interface  to  the  Physical  Resources 

In  order  to  implement  the  debugger  facilities,  an  interface  to  the 
computer's  physical  resources  had  to  be  designed.  This  interface  would  be 
primarily  concerned  with  the  retrieval  and  storage  of  data  values  in  the 
machine's  physical  resources.  A  study  of  the  computer's  data  retrieval  and 
storage  modules  revealed  that  the  following  functions  were  currently 
available  for  these  tasks; 

•  FETCHMO  -  retrieves  a  value  from  memory; 

•  STOREMO  -  stores  a  value  into  memory; 

•  FETCHRO  -  retrieves  a  value  from  a  register: 

•  STORERQ  -  stores  a  value  into  a  register: 

•  TOPSTKO  -  retrieves  a  value  at  top  of  a  stack. 

These  functions  provide  a  well-defined  Interface  to  the  data  structures  upon 
which  the  resource  abstraction  Is  built.  Interfacing  to  these  functions  to 
perform  the  debugger  operations  resulted  in  a  reduction  in  the  amount  of 
code  needed  to  implement  the  debugger. 

As  is  typical  in  any  computing  machine,  however,  some  data  retrieval 
and  storage  operations  generate  errors  which  in  turn  force  abnormal 
termination  of  program  execution.  Three  such  operations  are  as  follows; 

•  Retrieving  a  value  form  an  uninitialized  storage  location; 

•  Retrieving  a  value  form  a  non-existing  storage  location; 

•  Storing  3  value  at  a  non-existinq  storage  location. 

Clearly  if  the  debugger  is  to  use  the  implementation’s  existing  AM  data 
retrieval  and  storage  functions  to  perform  its  operations,  a  means  of 
properly  handling  these  types  of  errors  had  to  be  developed.  To  display 
uninitialized  storage  locations  while  in  the  debugging  mode,  the  retrieval 


functions  wer2  modified  to  return  a  NULL  value  for  displaying  to  the  user,  if 
the  computer  is  not  In  the  debug  mode,  a  regular  execution  error  is 
generated.  The  means  for  preventing  the  latter  two  types  of  errors  while  in 
the  debug  mode  were  designed  into  the  user  interface  to  the  debugger. 

3.  Debugger  Interface  to  the  User 

The  interface  was  designed  to  permit,  of  course,  the  capability  to 
perform  the  operations  listed  in  section  it  was  also  tailored  to  keep 
the  user  from  specifying  debugger  commands  that  would  cause  preventable 
errors  in  the  debugger  interface  to  the  physical  resources  abstraction  and  in 
program  execution.  Since  the  debugger  has  access  to  available  computer 
resources,  the  user  can  be  kept  from  trying  to  access  a  non-existing  storage 
segment  or  offset  address,  from  setting  the  program  counter  to  a  memory 
location  that  does  not  contain  an  instruction  value,  or  setting  a  breakpoint 
at  a  memory  location  that  does  not  contain  an  instruction  value.  This  type 
of  Interface  traps  potential  errors  at  the  earliest  possible  stage.  It  does 
not,  however,  prevent  the  user  from  setting  a  storage  location  with  a  value 
that  may  cause  an  error  during  program  execution.  This  particular  kind  of 
error  correction  was  considered  beyond  the  scope  of  this  thesis  and, 
therefore,  was  not  entertained. 

The  debugger  was  designed  to  prompt  the  user  for  each  piece  of 
command  input  (prompted  commands)  instead  of  the  user  entering  the  entire 
deougger  command  on  one  or  two  lines  (line  commands),  ^romored  ;nDut 
allows  for  "layered"  error  checking  of  the  debugger  command,  allowing  the 
user  to  reenter  input  at  that  layer  irstead  of  having  to  reenter  the  entire 
debugger  command.  This  also  permits  new  users,  familiar  only  with  this  AM 
implementation’s  value  representation  and  instruction  opcodes,  to  quickly 


learn  and  use  the  debugger  without  learning  debugger  command-line  formats. 
The  debugger  interface  to  the  user  is  shown  in  Appendix  A,  Sample  Sessions. 


IV.  IMPLEMENTATION 


A.  ASSUMPTIONS 

In  building  any  software  tool,  some  of  the  many  variables  in  a 
programming  environment  must  be  made  fixed  due  to  implementation 
considerations  and  a  need  for  establishing  a  point  of  reference.  These 
"constant"  variables  take  the  form  of  assumptions  about  the  programming 
environment.  The  following  ones  have  been  made  about  the  AM  programming 
environment: 

•  The  user  knows  how  to  assemble  files  using  the  environment's 
assembler  for  execution  on  the  computer; 

•  The  user  is  familiar  with  the  instruction  opcodes  used  In  this 
Implementation  of  the  AM; 

•  There  are  no  more  than  six  (6)  operands  per  instruction; 

•  A  character  string  is  less  than  81  characters  in  length; 

•  Integer  values  range  from  -  2147483647  to  2147483647; 

B.  DEBUGGER  COMMAND  SYNTAX  SYMBOLS 

The  debugger  command  syntax  symbols  are  in  Appendix  B,  Debugger 
Command  Syntax  Symbols.  The  user  Is  prompted  for  each  piece  of  the 

:ommand.  therefore,  the  actual  command  format  is  relatively  unimpcr'ant. 

C.  INTERACTIVE  DEBUGGER  OPERATIONS 

1.  Display  Operations 

The  user  can  use  the  debugger  to  display  all  the  computer's  memory, 


registers,  the  top  of  any  stack  segment,  all  the  program  breakpoints  and  the 
current  value  of  the  program  counter.  Sample  demonstrations  of  the  display 
operations  can  be  found  in  Appendix  A,  Sample  Sessions.  The  following 
subsections  present  the  furx:tional  details  for  each  type  of  display  operatioa 

a.  Display  Memory 

All  of  the  computer's  memory  cells  can  be  displayed  with  the 
'display  memory'  operation  The  command  has  the  following  syntax: 

'd'  'm'  I  segmentroffset)  span 

The  operation  retrieves  a  value  from  a  specified  memory  cell  ana  displays  it 
to  the  user.  It  uses  the  computer  function  'fetchmO'  to  perform  the  retrieve 
and  'showmemO'  to  display  the  value  at  the  memory  location.  Normally, 
during  regular  program  execution,  a  retrieval  from  an  uninitialized  memory 
location  causes  an  execution-terminating  error  in  the  computer.  For 
debugging  purposes,  however,  a  means  was  developed  to  interject  a  null  value 
into  the  retrieve  if,  in  fact,  no  value  is  contained  at  the  specified  memory 
cell.  A  control  variable  was  used  to  tell  the  computer  whether  to  return  a 
null  value  (implying  the  machine  was  performing  a  debugger  task)  or  generate 
an  error  (machine  under  program  execution).  Control  variables  are  covered  in 
section  IV.D. 

b.  Display  Register 

^11  :;f  ‘he  computer's  'cqisters  can  de  viewed  with  ‘he  display 

register'  operation.  It  has  the  following  command  syntax: 

'd'  'r'  segmentoffset  span 

Like  the  'display  memory'  operation,  this  operation  causes  similar  retrieval 


and  display  operations  to  be  performed,  but  using  the  AN's  register  segments 
instead  of  the  memory  segments.  This  operation  uses  ’fetchrQ'  to  retrieve 
the  value  from  the  register  cell  and  'showmemO'  to  display  the  value  to  the 
user.  As  in  displaying  memory,  similar  provisions  are  made  for  the 
interjection  of  a  null  value  if  the  register  cell  contains  no  value. 

c.  Display  Stacktop 

The  top  of  any  stack  segment  can  be  displayed  using  the  'display 
stack’  operation.  Its  command  syntax  Is  asfollows: 

'd’  's'  segment 

The  mechanics  of  the  'display  stack'  operation  are  similar  to  that  of  'display 
memory'  and  'display  register'.  It,  however,  uses  topstkO'  to  retrieve  the 
value  stored  at  the  top  of  a  stack  segment.  One  might  wonder  why  the  user 
is  given  a  free  hand  in  viewing  any  memory  or  register  cell,  but  is  restricted 
to  seeing  only  the  top  cell  in  a  stack  segment.  This,  in  part,  is  in  keeping 
with  the  notion  that  the  resources  are  a  "black  box."  For  a  particular  state 
of  the  computer,  the  values  stored  in  the  memory  and  registers  'exist'  and 
are  all  accessible  by  the  user,  typically  via  a  computer  program.  Values  in 
stack  cells  below  the  top  cell  conceptually  do  not  exist  for  a  particular 
state  of  the  machine.  The  interactive  debugger  adheres  to  this  principle. 

d.  Display  Breakpoints 

This  operation  disoiays  all  ^he  entries  in  the  oreakpoint  ‘abie. 
The  command  syntax  is  as  follows: 

'd'  'b' 

The  table  has  three  items  per  entry:  the  break  number,  the  memory  location 


where  the  breakpoint  is  set,  and  the  opcode  of  the  regular  instruction.  The 
table  is  updated  by  the  ’set  breakpoint'  and  'remove  breakpoint'  commands, 
e.  Display  Program  Counter 

This  debugger  operation  displays  what  segment  the  program 
counter  is  currently  in  and  at  what  offset  in  the  segment  it  is  currently 
pointing.  Its  command  syntax  is  as  follows: 

'd'  '*♦’ 


2.  Set  Operations 

The  set  operations  are  perhaps  the  most  important  of  ail  the  other 
debugger  operations  since  they  permit  the  user  to  actually  change  the  state 
of  the  computer.  The  operations  give  the  use  the  capability  to  alter  the 
state  of  the  computer's  memory,  registers,  stacktops  and  the  program 
counter.  The  set  operations  also  include  the  capability  to  set  breakpoints  at 
specified  memory  locations.  Demonstrations  of  the  set  commands  can  be 
found  in  Appendix  A,  Sample  Sessions.  The  functional  description  of  each  of 
the  set  operation  now  follows, 
a.  Set  Memory 

The  debugger  operation  'set  memory'  gives  the  user  the  capability 
to  store  any  of  the  AM's  defined  values  at  any  memory  location,  uninitialized 
or  not.  This  allows  the  user  to  "patch"  faulty  instructions  so  that  program 
testing  can  proceed  upon  a  user-desired  path.  Its  command  syntax  is  as 

'OilOWS: 


'S’  'm' 


m’  segmenhoffset  value 


This  operation  uses  the  computer  function  'storemO'  to  place  the  desired  AM 


value  into  a  specified  memory  locatioa  This  operation  can  indirectly  affect 
the  behavior  of  another  debugger  operation,  'remove  breakpoint'  (which  is 
covered  in  detail  later).  Breakpoints  are  implemented  by  substituting 
breakpoint  opcodes  for  the  actual  instruction  opcode  in  the  instruction 
value.  Setting  a  memory  location  which  contains  a  breakpoint  opcodewould, 
in  effect,  rempvethe  breakpoint  opcode, but  leave  its  breakpoint  entry  in  the 
break  table.  For  this  reason,  the  'set  memory'  operation  first  retrieves  the 
value  using  'fetchmO'  and  checks  to  see  if  a  breakpoint  exists  at  the 
locatioa  If  there  is,  the  user  is  given  the  option  of  aborting  the  operation 
or  confirming  it.  If  the  ooeration  is  confirmed,  the  breakpoint  is  removed 
from  the  table  and  the  new  value  stored  into  memory.  This  technique  helps 
to  ensure  closure  in  the  debugger  operations  and  to  maintain  a  significant 
degree  of  operation  independence  between  the  debugger  commands. 

b.  Set  Register 

This  operation  allows  the  user  to  set  any  register  location  to 
any  one  of  the  regularly  defined  values.  Its  command  syntax  is  as  follows: 

's'  'r'  segmenhoffset  value 

It  uses  the  function  'storerO'  to  store  'value'  into  the  indicated  register. 

c.  Set  Stacktop 

This  operation  lets  the  user  store  any  regularly  defined  value  at 
^he  *CD  of  any  stack  segment.  Its  command  syntax  is  as  follows: 

s'  '5'  segmentorfset  value 

This  AM  implementation  contained  no  function  for  actually  changing  the 
value  at  the  stacktop  without  modifying  the  stack  pointer.  In  other  words, 


the  value  at  the  stacktop  can  normally  be  changed  only  by  pushing  values  onto 
or  popping  values  off  of  the  stack,  thus  changing  the  stack  pointer.  To  give 
the  user  the  freedom  to  actually  alter  the  value  at  the  stacktop  without 
modifying  (in  all  but  one  case)  the  stack  pointer,  a  new  function  was  added 
to  the  computer  called  'storestk().'  The  function  uses  the  stack  segment 
stack  pointer  to  actually  store  the  value  at  the  stacktop.  -  It  does  change  the 
stack  pointer  when  the  stack  is  empty  since  the  stack  pointer  must  be 
initialized  before  the  value  can  be  stored, 
d.  Set  Breakpoint 

This  operation  gives  the  user  the  capability  to  temporarily  halt 
program  execution  to  examine  and  possibly  alter  the  state  of  the  AM.  Its 
command  syntax  is  as  follows: 

's'  'b'  segmenhoffset 

Breakpoints  can  be  set  in  any  memory  location  that  contains  an  instruction 
value.  The  operation  will  self-abort  if  a  non- instruct  ion  value  is  stored  at 
the  memory  address  (and  the  user  is  so  informed).  The  operation  also 
self-aborts  if  a  breakpoint  is  currently  set  at  the  memory  locatioa 

The  operation  first  uses  'fetchmO'  to  retrieve  the  value  stored  at 
the  specified  location,  Then  the  aforementioned  tests  are  performed.  If  the 
value  in  memory  is  an  instruction  and  no  breakpoint  is  set  at  the  location,  a 
new  breakpoint  oocode  is  computed.  *hB  regular  oocode  and  the  memory 
address  are  stored  in  the  table,  the  new  breakpoint  opcode  is  stored  in  the 
instruction,  and  then  the  instruction  is  stored  back  into  the  memory  location 
using  the  computer  function  'storemO.' 


The  breakpoint  opcode  is  formed  by  taking  the  debug  breakpoint 
code,  which  in  this  implementation  is  '0812',  and  adding  the  break  number  to 
the  front  of  the  code.  For  example,  if  the  next  open  entry  in  the  break  table 
is  at  position  4,  the  break  opcode  computed  would  be  '4812'.  (Currently,  up 
to  eight  (8)  breakpoints  may  be  set  at  any  one  time  during  the  debug  session.) 
e.  Set  Program  Counter 

This  operation  gives  the  user  the  ability  to  set  the  program 
counter  to  any  location  in  memory  that  contains  an  instruction  value. 
Restricting  the  target  memory  location  this  way  prevents  a  program 
execution  error  by  the  computer,  in  other  words,  trying  to  execute  a 
non- instruct  ion  value  causes  the  computer  to  generate  an 
execution-terminating  error.  The  command  syntax  is  as  follows: 

'd'  '**'  segmentroffset 

It  the  user  enters  a  memory  location  that  does  not  contain  an  instruction, 
the  operation  self-aborts  and  the  program  counter  remains  unchanged. 

3.  Remove  Breakpoint  Operation 

This  operation  undoes  the  'set  breakpoint'  operation.  Its  command 
syntax  is  as  follows: 

'r'  brknum 

!t  removes  breakooints  by  ‘heir  entry  number  :n  the  break  ‘able,  it  'Tst 
Checks  to  see  if  the  entry  is  in  the  table.  If  it  is  not,  the  operation 
self-aborts  (and  Informs  the  user).  If  it  is,  the  operation  uses  'fetchmO' 
(with  the  break  table  entry  memory  address  as  a  parameter)  to  retrieve  the 
instruction  value,  inserts  the  regular  opcode  from  the  break  table  into  the 
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instruction  value,  deletes  the  break  table  entry  and  stores  the  value  back  into 
memory  using  'storemO.'  A  sample  demonstration  of  this  operation  can  be 
found  in  Appendix  A,  Sample  Sessions. 

4.  Trace  Execution  Operations 

These  operations  are  used  to  turn  on  and  off  the  debug  trace  flag. 
They  can  also  be  used  to  trace  a  certain  number  of  instructions  and  return 
control  to  the  debugger.  After  the  operation  is  set,  it's  is  activated  by 
issuing  the  go  execute'  command.  Sample  demonstrations  can  be  found  in 
Appendix  A,  Sample  Sessions.  The  following  subparagraphs  present  the 
functional  details  for  each  of  the  trace  operations, 
a.  Trace  On 

This  operation  turns  on  the  debug  trace  flag.  When  the  flag  is  on, 
each  instruction  is  displayed  before  it  is  executed.  The  command  syntax  is 
as  follows: 

't'  M' 


The  operation  can  be  disabled  at  the  debugger  level  by  the  'trace  off’ 
command.  The  operation  is  also  aborted  during  program  execution  by 
program  termination  or  a  breakpoint  being  encountered.  This  operation 
partially  disables  the  'trace  n’  operation  and  completely  disables  the  'trace 
off'operatioa 

b.  Trace  Off 

This  operation  turns  off  the  deoug  trace  flag.  When  the  flag  ;s 

off,  the  Instruction  about  to  be  executed  Is  not  displayed  to  the  user.  Its 
command  syntax  is  as  follows: 


This  operation  also  disables  the  ’trace  on'  and  'trace  n  ’  commands  at  the 
debugger  level.  It  can  be  disabled  by  the  'trace  on’  and  'trace  n'  commands  at 
the  debugger  level, 
c.  Trace  n 

This  operation  causes  execution  to  be  traced  for  /?  instructions 
and  then  control  to  be  transferred  back  to  the  debugger,  its  command  syntax 
is  as  follows: 

't'  span 

While  at  the  debugger  command  level,  it  can  completely  disable  the  'trace 
off’ operation.  After  the  specified  number  of  instructions  are  executed,  the 
debug  trace  is  again  turned  off.  While  at  the  debugger  command  level,  this 
operation  can  be  partially  disabled  by  the  'trace  on’  command  and  totally 
disabled  by  the  'trace  off'  command.  During  program  execution,  the 
operation  is  disabled  by  program  termination  or  a  breakpoint  being 
encountered.  The  number  of  instructions  to  be  traced  can  also  be  overriden 
by  the  'go  execute  n '  command. 

5.  Go  Operations 

These  commands  are  used  to  transfer  control  from  the  debugger  back 
to  the  computer.  Demonstrations  of  the  operations  can  be  found  in  Appendix 
A.  5amble  Sessions.  The 'uncticnai  details  of  each  of  the  go  operations  are 
presented  :n  ihe  following  subparagraphs, 
a.  Go  Uncontrolled 


This  operation  transfers  control  back  to  the  computer  so  that  it 
can  proceed  with  program  execution.  The  operation  proceeds  until  a 


breakpoint  is  encountered,  a  'trace  n‘  operation  is  complete  or  the  program 
terminates.  Its  command  syntax  is  as  follows: 

‘g*  '!' 


b.  Go  n 

Like  the  'go  uncontrolled'  operation,  this  operation  causes 
control  to  be  transferred  from  the  debugger  back  to  the  computer  for 
program  executioa  However,  after  n  instructions  are  executed,  control  is 
transferred  back  to  the  debugger.  Its  command  syntax  is  as  follows: 

■g'  span 

The  operation  is  disabled  in  program  execution  by  a  breakpoint  being 
encountered,  program  termination  or  the  completion  of  the  specified  number 
of  Instructions.  This  operation  has  an  indirect  effect  upon  the  'trace  n ' 
operatioa  Changing  the  number  of  instructions  to  be  executed  in  the  'go  /?' 
command  also  overrides  the  number  to  be  traced. 

6.  Help  Operation 

This  operation  lists  the  available  debugger  operations  and  their 
command  formats.  Its  has  the  following  command  syntax: 

'?' 


A  demonstration  of  the  operation  is  shown  in  Appendix  A,  Sample  Sessions. 

D.  DEBUGGER  CONTROL  OF  MACHINE  EXECUTION 

For  the  debugger  to  control  the  execution  of  the  computer  requires  that 
certain  "toggles"  be  added  to  the  machine.  Implementing  these  "toggles" 
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translates  into  defining  control  variables  that  the  debugger  sets  and  the 
computer  reads  to  alter  machine  execution  and  flow  of  control.  Figure  4.1 
on  page  37  is  a  list  of  the  control  variables  added  to  this  AM 
implementatioa  A  more  detailed  description  of  the  function  of  each  of  the 
control  variables  is  presented  in  the  following  subparagraph. 

1.  Debuoflaq 

This  control  variable  directs  the  computer  to  activate  and  transfer 
control  to  the  interactive  debugger.  It  is  set  on  two  occasions,  the  user 
specifying  the  '-d'  option  at  computer  "startup"  and  the  program  terminating, 
normally  or  abnormally.  It  is  reset  when  control  is  passed  from  the 
debugger  back  to  the  computer. 

2.  PebQtask 

This  control  variable  keeps  the  retrieve  operations  from  generating 
an  error  if  the  debugger  attempts  to  retrieve  a  value  from  an  uninitialized 
storage  locatioa  If  the  storage  location  is  uninitialized,  the  retrieve 
function  generates  a  null  value  and  returns  it  to  the  debugger.  The 
termination  of  each  debugger  operation  zeroes  the  variable. 

3.  Left2do 

This  variable  controls  the  ruimber  of  instructions  to  be  executed  for 
a  'go  n'  or  a  'trace  n'  debugger  operation.  This  control  variable  is  zeroed  if 
an  execution  error  occurs  or  a  breakpoint  is  encountered.  It  also  works  in 
tandem  with  the  'debgcntr  control  variable. 

4.  DePQcntl 


This  control  variable  tells  the  computer  that  a  'go  n'  or  a  'trace  n' 
operation  is  being  performed  in  tandem  with  program  executioa  If  'debgcntr 


int  debugflag  =  0; 

/“  When==  1,  calls  the  interactive  debugger.  »*/ 
int  debgtask  =  0; 

/*  When  ==  1,  tells  Afl  that  debugger  is  directly  using  Ad  functions  for 
debugger  operations.  ♦*/ 

int  Ieft2do  =  0; 

I*  When  ==  1.  tells  AM  how  many  instructions  to  do  before  forking  back 
to  the  debugger.  Set  by  'go  n'  and  'trace  n’  debug  ops.  “/ 

int  debgcntl  =  0: 

/**  When  ==  I.  teils  AM  that  its  execution  is  under  control  of  a  go  n'  or 

'trace  n'  debug  operation.  **/ 

int  breakfig  =  0; 

/**  When  ==  1,  tells  AM  that  breakpoint  encountered  in  its  execution  and 
conversionof  an  instruction  must  be  made.  **/ 

int  errorf  Ig  =  I; 

/*  When==  0,  tells  errorQthat  ICSTOP  instruction  has  occurred  and  not 
to  print  certain  error  messages.  V 

int  dbgtrace  =  0; 

/**  When  ==  1,  sends  value  at  the  -pc.val  to  standard  output  device,  thus 
performing  a  program  execution  trace.  **/ 

Figure  4.1:  Debugger  Control  Uariables 

is  set,  then  the  control  variable  'left2do'  is  checked  for  equality  with  zero. 
This  variable  is  zeroed  when  the  number  of  instructions  has  been  executed,  a 
breakpoint  occurs,  or  the  program  terminates. 


5.  6reakfi 


Breakpoint  opcodes  are  substituted  for  the  regular  instruction 
opcodes,  with  the  regular  opcode  being  stored  in  the  break  table.  The 
'breakflg'  "toggie*  is  set  when  an  instruction  containing  a  break  opcode  :s 
encountered.  The  variable  signals  the  debugger  that  the  instruction  must  be 
restored  to  an  executable  form  by  reinserting  its  regular  opcode  from  the 
break  table.  Breakflg'  is  zeroed  after  the  instruction  is  modified.  When  the 
debugger  transfers  control  back  to  the  computer,  the  modified  instruction  is 
then  interpreted  and  executed. 

5.  Errorflq 

In  the  AM's  current  implementation,  normal  as  well  as  abnormal 
program  termination  calls  the  error  handler  to  halt  execution.  This  flag  is 
set  by  the  ICSTOP  instruction  so  that  certain  error  messages  are  not  printed. 

7.  Dbqtrace 

This  "toggle"  causes  the  computer  to  display  the  instruction  to  the 
user  prior  to  its  execution.  It  is  set  by  the  'trace  n '  and  'trace  on  ' 
operations.  It  is  zeroed  by  a  breakpoint  being  encountered,  by  the 
completion  of  the  'trace  n  ’  operation,  by  the  'trace  off'  operation,  or 
program  termination 

E.  ERROR  HANDLING  IN  PROGRAM  EXECUTION 

"^he  control  variables  added  ^o  ^his  imDiementaticn,  ccuDled  with  ‘he 
error  handler  moaificaiion,  give  the  debugger  the  means  for  'trapping' 
control  of  program  execution  Calling  the  error  handling  module  now  causes 
the  debugging  control  variables  to  be  zeroed,  the  appropriate  messages  to  be 
displayed  to  the  user,  and  a  return  to  the  debugger  command  level  so  that  the 


user  can  examine  or  alter  the  machine  state  and.  if  desired,  rerun  the 
program. 


F.  MODIFICATIONS  TO  AM  IMPLEMENTATION 

The  main  debugger  program  files  added  to  this  implementation  of  the  AM 
are  contained  in  Appendix  C,  Debugger  Program  Files.  Some  modifications 
were  also  made  to  the  actual  implementation  of  the  AM.  These  cnanges  were 
necessary  to  estabiisn  an  interface  between  the  debugger  and  the  AM's 
physical  resources.  The  more  significant  changes  are  briefly  listed  below: 

•  Decugger  coniroi  vanaDies  were  added  to  the  AM  ;mpiementation  to 
provide  proper  transfer  of  control  between  the  computer  and  the 
debugger; 

•  The  memory,  register  and  stack  retrieve  operations  were  modified  to 
return  a  null  value  to  the  debugger  if  the  storage  location  was 
uninitialized; 

•  A  breakpoint  opcodewas  added  to  the  computer  opcodedefinitions: 

•  A  function  for  storing  a  value  at  a  stacktop  was  added  to  the  vaiue 
retrieve  and  store  module; 

•  The  original  copy-value  function  was  duplicated  and  renamed  for  use 
in  the  AM  assembier.  This  was  done  so  as  to  hide  the  separate 
debugging  process  from  program  assembly  process; 

•  The  display-value  ^unction  was  modified  suppress  disDlauinq  <:his 
AM's  implementation  details  to  the  user; 

•  The  error  handler  function  was  modified  to  call  the  debugger  upon 
program  termination,  normal  or  abnormal. 


V.  CONCLUSIONS  AND  FUTURE  WORK 

Designing  the  interactive  debugger  to  make  use  of  the  An 
implementation’s  existing  functions  again  demonstrates  the  advantage  of 
formally  specifying  functional  interfaces  for  computer  resources.  Because 
the  interfaces  were  well  defined  and  built  as  conceptual  "black  boxes." 
linking  them  to  the  debugger  was  relatively  straightforward.  Having  the 
interfaces  being  built  as  "black  boxes”  also  helped  to  prevent  the 
modification  "ripple  effect"  upon  the  behavior  of  existing  functions,  it  's 
expected  that  the  addition  of  an  interactive  debugger  to  the  AM  programming 
environment  will  significantly  aid  future  developers  of  AM  resource  tools. 

Although  the  interactive  debugger  significantly  enhances  the  AM 
programmers  ability  to  interact  with  the  other  elements  in  the  AM 
programming  environment,  its  interface  to  the  user  can  be  improved.  In  light 
of  this,  the  following  areas  for  continuing  research  are  suggested: 

•  Implement  an  in-line  assembler  for  the  debugger.  This  would  permit 
the  user  to  set  storage  resources  by  entering  the  actual  assembler 
language  statements.  This  provides  a  debugger  interface  at  the  level 
of  the  assembly  language  programming  abstraction; 

•  Implement  an  in-line  disassembler  for  displaying  instruction  values 
'n  memory; 

•  Implement  a  graphical  user  interface  to  the  debugger. 
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««»««««*«*««»»**««««««»«««•« 

*  THE  DEBUGGER 
«««««««*«•»««««««•»««««««««««« 


Enter  letter  of  operation: 

d  (isplay) 
a  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s  (et) 
t (race) 

q  (uit  &  halt  exec) 


HELP  OPERATION 


Debugger  Commands 
«««««««««*««««•»««««■»««« 


(T(isplay)  m  (emory),  {  **  1  seg:offset},  span 
rCegister),  seg:offset,  span 
sTtack  '  top  only),  seg 
‘b'Creaks  -  all) 

•••(program  counter) 

*g‘(o)  (T  In  <lnstrs>) 

*?’(1ist  available  debug  commands) 


■t'(roce) 


‘s’(et)  ’m‘(emory),  seg:offset,  vaUtype,  val 

■r’(egister),  seg:offset,  val-type,  val 
‘s*(tacktop,  seg,  vaUtype  val 
*b*(reok),  seg:offset 
•••(program  counter),  segroffset 
•t(roce)  T(on)  <  TRACE 

■z(off)  STARTED 

for  n  instrs  BY  ’GO'> 

‘q'(uit  debug  and  halt  execution) 

Legend:  I  -  or,  (]  -  optional,  <>  -  comment,  0  -  Must  choose  an  item. 

Enter  non-blank  char  to  continue. 

>q 

DISPLAY  OPERATIONS 


Enter  letter  of  operation: 

d  (isplay) 
g  (o  execute) 

?  (list  debug  ops) 


r  (emove  break) 
s(et) 
t (race) 

q  (uU  &  halt  exec) 


Enter  one  of  choices  below: 

m  (emory) 
r (egister) 
s  (tack  top) 
b (reak) 

*  (program  counter) 


Enter  one  of  following: 

V-  addr  value  prompt 
for  current  PC  value 
-  to  abort  the  operation: 

>» 

*  OPERATION  SPAN  » 

Enter  decimal  number  between  1  and  20 
or 

'9'  to  abort  the  operation: 

>16 

Memaddr  Contents 

00000000  (VJNSTR)  ISPSHI_ 

(V-JILE)  2 
(V_SAD)  (0:0) 
00000001  (V-.INSTR)  ISPSHI- 
(V_MAD)  (1:0) 
(V_SAD)  (0:0) 
00000002  (V-INSTR)  IFWRITE 
(V_SAD)  (0:0) 
00000003  (V^INSTR)  ISPSHI- 
(V-FILE)  2 
(V_SAD)  (0:0) 
00000004  (V-INSTR)  ISPSHI- 
(V-MAD)  (1:1) 
(V-SAD)  (0:0) 
00000005  (V-iNSTR)  IFWRITE 
(V_SAO)  (0  :0) 
00000006  (V-INSTR)  ISPSHI- 
(V-FILE)  2 
(V-SAD)  (0  :0) 
00000007  (V-INSTR)  ISPSHI- 
(V_MAD)  (1:0) 
(V-SAD)  (0:0) 
00000008  (V-INSTR)  IFWRITE 


'I 


f- 

I 


00000009 


OOOOOOOA 


00000006 

oooooooc 

OOOOOOOD 

OOOOOOOE 

OOOOOOOF 


(V_SAD)  (0:0) 
(V_1NSTR)  ISPSHL 
(V-FILE)  2 
(V-SAD)  (0:0) 
(V_INSTR)  ISPSHI- 
(V-MAD)  (1:1) 
(V_SAD)  (0:0) 
(V_INSrR)  IFWRITE 
(V-SAD)  (0:0) 
(V^INSTR)  ICSTOP 
(V_NULL)  0 
(VJIULL)  0 
(V_NULL)  0 
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Enter  letter  of  operation: 

d  (Isplay) 
g  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s  (et) 
t (race) 

q  (ult  &  halt  exec) 


Enter  one  of  choices  below: 

m  (emory) 
r (egister) 
s  (tack  top) 
b (reak) 

*  (program  counter) 


Enter  one  of  following: 

V-  addr  value  prompt 
'•*  -  to  abort  the  operation: 

>v 

Enter  decimal  segment  *  between  0  and  0 
or 

to  abort  the  operation: 


Enter  decimal  offset  between  0  and  31 
or 

'P‘  to  abort  the  operation: 

>0 

*  OPERATION  SPAN  * 


Enter  decimal  number  between  1  and  20 
or 

to  abort  the  operation: 

>5 

Regnum  Contents 

00000000  (VJ^ULL)  0 
00000001  (V_NULL)  0 
00000002  (V_NULL)  0 
00000003  (V_NULL)  0 
00000004  (V_NULL)  0 


Enter  letter  ot  operation: 

d  (Isplay) 
q  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s(et) 
t (race) 

q  (ult  &  halt  exec) 


Enter  one  of  choices  below: 

m  (emory) 
r  (eglster) 
s  (tack  top) 
b  (reok) 

*  (program  counter) 

>s 

Enter  one  of  following: 

'V*  -  segment  value  prompt 
'P'  -  to  abort  the  operation: 

>v 

Enter  decimal  segment  *  between  0  and  0 
or 

'P'  to  abort  the  operation: 

>0 

Top  of  Stack: 

00000 IFF  (VJIULL)  0 


Enter  letter  of  operation: 

d  (Isplay) 
g  (o  execute) 


?  (list  debug  ops) 
r  (emove  break) 
s(el) 
t  (race) 

q  (uit  &  halt  exec) 


Enter  one  of  choices  below: 

m  (emory) 
r (eglster) 
s  (tack  top) 
b (reak) 

*  (program  counter) 


Enter  T  to  continue 
or 

to  abort  the  operation: 


.’*1 


«*«««««««««««««««««»««« 


*  BREAkPQIIvrS  * 

*  * 

«««»«»«««««««««««»««««« 


s 


BRKNUn  MEMADDR  OPCODE 
0 
1 

2 

3 

4 

5 

6 
7 


Enter  letter  of  operation: 

d  (isploy) 
g  (o  execute) 

?  (list  debug  oos) 
r  (emove  break) 
s  (et) 
t (race) 

q  (uit  &  halt  exec) 


Display  Pn 


Wt-iiiiK-iUiuy 


Enter  one  of  choices  below: 
m  (emory) 


’*i^l^*»’'»*WS*'***v 


r (egister) 
s  (tack  top) 
b  (reak) 

*  (program  counter) 


Enter  one  of  following: 

T  to  confirm  o1  splay  pc 
to  abort  the  operation 


PR6M  COUNTER  In  segment  0  at  offset  0. 

SET  OPERATIONS 

Set  tlgmory 

Enter  letter  of  operation: 

d  (isplay) 
q  (o  execute) 
r  (list  debug  ops) 
r  (emove  break) 

3  (et) 
t (race) 

q  (uit  &.  halt  exec) 

>s 

Enter  one  of  choices  below: 

m  (emory) 
r (egister) 

8  (tack  top) 
b (reak) 

*  (program  counter) 

>m 

Enter  one  of  following: 

V-  memaddr  value  prompt 
'P‘  -  to  abort  the  operation: 

>v 

Enter  ueclmal  segment  ^  between  0  and  1 
or 

to  abort  the  operation: 

>0 

Enter  decimal  offset  between  0  end  1023 
or 

‘P'  to  abort  the  operation: 

>13 


****  Entering  Value  to  be  Stored  **** 

Enter  number  besides  type  desired: 

1  -  BOOL  2  -  NAT  3  -  INT  4  -  CHAR 

5  -  CSTR  6  -  MAD  7  -  RAD  8  -  SAD 

9 -FILE  10-lNSTR  11  -  MOP  12-DOP 

13  -  ROP  14  -  BOP  ♦  -  abort  op 

>10 

Enter  HEX  opcode 
or 

to  abort  the  operation: 

>3631 

**•  Entering  Operand  •  1  *** 

****  Entering  Value  to  be  Stored  **** 

Enter  number  besides  type  desired: 

1  -  BOOL  2  -  NAT  3  -  INT  4  -  CHAR 

5 -CSTR  6 -MAO  7  -  RAD  8  -  SAD 

9 -FILE  11 -MOP  12-DOP  13 -ROP 

14-aOP  abort  op 
>3 

Enter  decimal  number  between 

-2 1 47483647  &  2 1 47483647  (no  •/): 
or 

'•*  to  abort  the  operation: 

>500 

***  Entering  Operand  *2  *** 

****  Entering  Value  to  be  Stored  **** 

Enter  number  besides  type  desired: 

1  -  BOOL  2  -  NAT  3  -  IffT  4  -  CHAR 

5  -  CSTR  6  -  MAD  7  -  RAO  8  -  SAD 

9 -FILE  11 -MOP  12-DOP  13 -ROP 

14 -BOP  abort  op 

>7 

Enter  one  of  following: 

‘v*  -  regaddr  value  prompt 
*•*  -  to  abort  the  operation: 


Enter  decimal  segment  *  between  0  and  0 


to  abort  the  operation: 

>0 


Enter  decimal  offset  between  0  and  31 
or 

'•*  to  abort  the  operation: 

>31 

Enter  letter  of  operation: 

d  (Isplay) 
g  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s(eO 
t (race) 

q  (ult  &  halt  exec) 

>d 

Enter  one  of  choices  below: 

m  (emory) 
r (eglster) 
s  (tack  top) 
b (reak) 

*  (program  counter) 

>m 

Enter  one  of  following: 

Y-  addr  value  prompt 
for  current  PC  value 
-  to  abort  the  operation: 

>v 

Enter  decimal  segment  *  between  0  and  1 
or 

'P‘  to  abort  the  operation: 

>0 

Enter  decimal  offset  between  0  and  1023 
or 

to  abort  the  operation: 

>13 

*  OPERATION  SPAN  * 

Enter  decimal  number  between  1  and  20 
or 

to  abort  the  operation: 

>2 


Memaddr  Contents 


00000000  (V.iNSTR) 

(V_INT)  500 
(V_RAD)  (0:31) 
OOOOOOOE  (V_NULL)  0 


Enter  letter  of  operation: 

d  (isplay) 

Q  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s(et) 
t  (race) 

q  (uit  &  halt  exec) 
>s 

Enter  one  of  choices  below: 

m  (emory) 
r (egister) 
s  (tack  top) 
b (reak) 

*  (program  counter) 
>r 


Set  Register 


Enter  one  of  following: 

V-  regaddr  value  prompt 
*•*  -  to  abort  the  operation: 
>v 


Enter  decimal  segment  *  between  0  and  0 
or 

to  abort  the  operation: 

>0 

Enter  decimal  offset  between  0  and  31 
or 

to  abort  the  operation: 

>13 


****  Entering  Value  to  be  Stored  **** 
Enter  number  besides  type  desired: 


1  --  BOOL 

2 -NAT 

3-IKT 

4 

5-CSTR 

6 -MAD 

7 -RAD 

8 

9  -  FILE 

tO-INSTR 

1 1  -  MOP 

12 

13-ROP 

14 -BOP 

9  -  abort  op 

CHAR 

SAD 

DOP 


>6 


Enter  one  of  following: 

y  -  stkaddr  value  prompt 
-  to  aPort  the  operation: 

>v 

Enter  decimal  segment  ^  between  0  and  0 
or 

‘9’  to  abort  the  operation: 

>0 

Enter  decimal  offset  between  0  and  51 1 
or 

'9‘  to  abort  the  operation: 

>56 

Enter  letter  of  operation: 

d  (isplay) 
q  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s  (et) 
t (race) 

q  (uit  &  halt  exec) 

>d 

Enter  one  of  choices  below: 

m  (emory) 
r (egister) 

3  (tack  top) 
b  (reak) 

» (program  counter) 

>r 

Enter  one  of  following: 

V-  addr  value  prompt 
*•'  -  to  abort  the  operation: 

>v 

Enter  decimal  segment  *  between  0  and  0 
or 

'9'  to  abort  the  operation: 

>0 

Enter  decimal  offset  between  0  and  31 
or 

’9’  to  abort  the  operation: 

>13 


*  OPERATION  SPAN  * 
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Enter  decimal  number  between  1  and  20 
or 

to  abort  the  operation: 

>2 

Regnum  Contents 

OOOOOOOD  (V_SAD)  (0:56) 

OOOOOOOE  (V_NULL)  0 


Enter  letter  of  operation: 

d  (isplay) 
g  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s  (el) 
t  (race) 

q  (uit  &  halt  axec) 


Set  StacktoD 


Enter  one  of  choices  below: 

m  (emory) 
r (eglster) 
s  (tack  top) 
b (reak) 

*  (program  counter) 
>s 


Enter  one  of  following: 

V-  regaddr  value  prompt 
‘P’  -  to  abort  the  operation: 
>v 


Enter  decimal  segment  ♦  between  0  end  0 
or 

‘P'  to  abort  the  operation: 

>0 


****  Entering  Value  to  be  Stored  **** 

Enter  number  besides  type  desired: 


1  -  BOOL 

2 -NAT 

3-  INT 

4 

5-CSTR 

6 -MAD 

7 -RAD 

B 

9  -  FILE 

10  -  INSTR 

1 1  -  MOP 

12 

13-ROP 

14 -BOP 

•  -  abort  op 

CHAR 

SAD 

DOP 


Enter  character 


or 

to  abort  the  operation: 

>! 

Enter  letter  of  operation: 

d  (Isplay) 

0  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s(et) 
t (race) 

q  (ult  &  halt  exec) 

>d 

Enter  one  of  choices  below: 

m  (emory) 
r (egister) 
s  (tack  top) 
b (reok) 

*  (program  counter) 

>s 

Enter  one  of  following: 

‘v‘  -  segment  value  prompt 
-  to  abort  the  operation: 

>v 

Enter  decimal  segment  *  between  0  and  0 
or 

to  abort  the  operation: 

>0 

Top  of  Stack: 

00000 IFF  (V_CHAR) ! 


Enter  letter  of  operation: 

d  (isplay) 
g  (o  execute) 

?  (list  debug  ops) 
r  (emove  oreak) 
s  (et) 
t (race) 

q  (ult  &  halt  exec) 
>s 

Enter  one  of  choices  below: 
m  (emory) 


Set  Breakpoints 
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m 


^*5 


r (egister) 
s  (tack  top) 
b (reak) 

*  (program  counter) 


Enter 


one  of  following: 

V  -  memaddr  value  prompt 
-  to  abort  the  operation: 


Enter 


to 

>0 


decimal  segment  *  between  0  and  1 
or 

abort  the  operation: 


Enter 


to 

>2 


decimal  offset  between  0  and  1023 
or 

aoort  the  operation: 


Enter  letter  of  operation: 


'd  (1  splay) 
q  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s(et) 
t (race) 

q  (ult  &  halt  exec) 


Enter  one  of  choices  below: 


m  (emory) 
r (egister) 
s  Hack  top) 
b (reak) 

*  (program  counter) 


Enter 


one  of  following: 
v'  -  memaddr  value  prompt 
-  to  abort  the  operation: 


Enter 


*••  to 
>0 


decimal  segment  *  between  0  and  1 
or 

abort  the  operation: 


Enter  decimal  offset  between  0  and  1023 


-Vi*'- 

s'l'l 

f  l.l 

•  $ 


iil 


i 

•Iw 

•tvJ 


to  abort  the  operation: 
>4 

Enter  letter  of  operation: 

d  (isplay) 
q  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s(et) 
t (race) 

q  (uit&  halt  exec) 


Enter  one  of  choices  below: 

m  (emory) 
r (egister) 
s  (tack  top) 
b (reak) 

*  (program  counter) 

>b 

Enter  one  of  following: 

V  -  memaddr  value  prompt 
-  to  abort  the  operation: 

>v 

Enter  decimal  segment  *  between  0  and  1 
or 

*•*  to  abort  the  operation: 

>0 

Enter  decimal  offset  between  0  and  1023 
or 

'•*  to  abort  the  operation: 

>9 

Enter  letter  of  operation: 

d  (Isplay) 

?(o  execute) 

(list  debug  ops) 
r  (emove  break) 

3  (et) 
t  (race) 

q  (uit  &  halt  exec) 

>s 

Enter  one  of  choices  below: 


m  (emory) 
r (egister) 


b (reck) 

*  (program  counter) 

>b 

Enter  one  of  following: 

*v’  -  memaddr  value  prompt 
-  to  abort  the  operation: 

>v 

Enter  decimal  segment  *  between  0  and  1 
or 

to  abort  the  operation: 

>0 

Enter  decimal  offset  between  0  and  1023 
or 

'•*  to  abort  the  operation: 

>n 

Enter  letter  of  operation: 

d  (isplay) 
g  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s  (et) 
t (race) 

q  (uit  &  halt  exec) 

>s 

Enter  one  of  choices  below: 

m  (emory) 
r (egister) 
s  Uack  top) 
b (reak) 

*  (program  counter) 

>b 

Enter  one  of  following: 

V-  memaddr  value  prompt 
'9'  -  to  abort  the  operation: 

>v 

Enter  decimal  segment  *  between  0  and  1 
or 

to  abort  the  operation: 

>0 

Enter  decimal  offset  between  0  and  1023 


•  #Jl 

,■‘^1 


wl 

'Iv 


•-•I'll 


I 

•Ss 

i’'V 


i 

Wi 

.  i'  t 


m 


'•'ill** 

K%s 

‘!v? 

V' 

’1“ 


>■  to  abort  the  operation: 
>13 

Enter  letter  of  operation: 

d  (isplay) 

?(o  execute) 

01st  debug  ops) 
r  (emove  break) 
s(et) 
t (race) 

q  (ult  &  halt  exec) 


Enter  one  of  choices  below: 

m  (emony) 
r (eglster) 
s  (tack  top) 
b (reak) 

*  (program  counter) 


Enter  one  of  following: 

v'  -  memaddr  value  prompt 
■*  to  abort  the  operation: 

>v 

Enter  decimal  segment  *  between  0  and  1 
or 

>'  to  abort  the  operation: 

>0 

Enter  decimal  offset  between  0  and  1023 
or 

to  abort  the  operation: 

>12 

Enter  letter  of  operation: 

d  (Isplay) 

0  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s  (et) 
t (race) 

q  (ult  &  halt  exec) 


Enter  one  of  choices  below: 
m  (emory) 


w 


r (egister) 
s  (lack  top) 
b (reak) 

*  (program  counter) 
>b 

Enter  '!*  to  continue 
or 

*•*  to  abort  operation: 

>! 


« 

« 

* 


BREAKPOINTS 


» 

* 


BRKNUM  MEMADOR  OPCODE 

0 

1 

2  OOOOOOOC  ICSTOP 

3  OOOOOOOD  lrt_l_R_ 

4  00000006  IFWRITE 

5  00000009  ISPSHI_ 

6  00000004  ISPSHl_ 

7  00000002  IFWRITE 


Enter  letter  of  operation: 


Set  Program  Counter 


d  (isploy) 
g  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s(et) 
t (race) 

q  (uit  &  halt  exec) 


Enter  one  of  choices  below: 

m  (emory) 
r (egister) 

3  (tack  top) 
b (reak) 

*  (program  counter) 

>* 


Enter  one  of  following: 

'V*  -  prog  cntr  value  prompt 
>■  -  to  abort  the  operation: 


>v 


« tv 

.''V 


'.‘tf 

,t 


'.*1* 


I 

I 

i 

M 

♦f»^3 

m 

m 


•  w 
•‘W 


I 

wfl 


Enter  decimal  segment  *  between  0  and  1 
or 

*9*  to  abort  the  operation: 

>0 

Enter  decimal  offset  between  0  and  1023 
or 

to  abort  the  operation: 

>16 

Sorry,  non-instr  at  memaddr. 

Program  counter  unchanged. 

Enter  letter  of  operation: 

d  (isplay) 

Q  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s(et) 
t (race) 

q  (uit  &.  halt  exec) 

>s 

Enter  one  of  choices  below: 

m  (emory) 
r (egister) 
s  (tack  top) 
b (reak) 

*  (program  counter) 

>* 

Enter  one  of  following: 

’v'  -  prog  cntr  value  prompt 
>'  -  to  abort  the  operation: 

>v 

Enter  decimal  segment  *  between  0  and  1 
or 

to  abort  the  operation: 

>0 

Enter  decimal  offset  between  0  and  1023 

or 

to  abort  the  operation: 

>2 

Enter  letter  of  operation: 
d  (Isplay) 


s::*: 


g  (o  execute) 

?  01st  debug  ops) 
r  (emove  breok) 
s  Ut) 
t (race) 

q  (uU  &  hall  exec) 


Enter  one  of  choices  below: 

m  (emory) 
r  (egister) 
s  (tack  top) 
b(reak) 

» (program  counter) 

>* 

Enter  one  of  following: 

T  to  confirm  dtspiag  pc 
'9‘  to  abort  the  operation 


PRGM  COUNTER  in  segment  0  at  offset  2. 


Enter  letter  of  operation: 

d  (isplay) 

?(o  execute) 

(list  debug  ops) 
r  (emove  break) 
s(el) 
t (race) 

q  (ult  &  halt  exec) 


Enter  one  of  choices  below: 

m  (emory) 
r (egister) 
s  (tack  top) 
b (reak) 

*  (program  counter) 


Enter  one  of  following: 

V-  prog  cntr  value  prompt 
‘0‘  -  to  abort  the  operation: 


Enter  decimal  segment  *  between  0  and  1 
or 
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'9'  to  abort  the  operotlon: 

>0 

Enter  decimal  offset  between  0  and  1023 
or 

to  abort  the  operation: 

>0 


TRACE  /  60  OPERATIONS 


Trace  On  with  Go  Uncontrolled 
Enter  letter  of  operation: 


d  (isplay) 
g  (0  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s  (et) 
t (race) 

q  (uit  &  halt  axec) 


Enter  one  of  following: 

Decimal  number  between  1  and  20 
T  for  trace  on 
*z‘  for  ‘trace  off* 

to  abort  the  operation: 

>! 


Enter  letter  of  operation: 

d  (Isplay)  , 

?(o  execute) 

(list  debug  ops) 
r  (emove  break) 
s(et) 
t (race) 

q  (ult  &  halt  exec) 

>g 

Enter  one  of  choices  below: 

Decimal  range  btwn  1  and  20 
T  '  uncontrolled  go 

-  to  abort  the  operation 


00000000  (V_iNSTR)  ISPSHL 
(V_FILE)  2 
(V_SAD)  (0:0) 
00000001  (V_INSTR)  ISPSHL 
(V-J1AD)  (1:0) 
(V_SAD)  (0:0) 


BREAKPOINT  ENCOUNTERED  ^ 


*  THE  DEBUGGER  ^ 

xxxxxxxxxxxxxxx»xxwxxxxx»xxx 


Trace  Off  with  Go  Uncontrolled 
Enter  letter  of  operation: 

d (isplay) 
q  (o  execute) 

?  (list  debug  ops) 
r  (Remove  break) 
s(et) 
t  (race) 

q  (ult  &  halt  exec) 


Enter  one  of  following: 

Decimal  number  between  1  and  20 
T  for  trace  on' 

'z'  for  trace  off 

to  abort  the  operation: 


Enter  letter  of  operation: 

d  (isplay) 
g  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s(et) 
t  (race) 

q  (uit  &  halt  exec) 


Enter  one  of  choices  below: 

Decimal  range  btwn  I  and  20 
T  -  uncontrolled  go 
-  to  abort  the  operation 


BREAKPOINT  ENCOUNTERED 

WXXXXXXXXXXXMXXXXXXXXXXX^tXXX 

*  THE  DEBUGGER  * 

xwxxxxxxxxxxxxxxxxxxxxxx»t«xx 


Enter  letter  of  operation: 
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d  (isplay) 
g  (o  execute) 

7  (list  debug  ops) 
r  (emove  break) 
s  (et) 
t (race) 

q  (uit  &  halt  exec) 
>d 

Enter  one  of  choices  below: 

m  (emory) 
r (egister) 
s  (tack  top) 
b (reak) 

*  (program  counter) 


Enter  one  of  following: 

to  confirm  display  pc 
to  abort  the  operation 


PRGM  COUNTER  in  segment  0  at  offset  4. 


Enter  letter  of  operation: 

d  (isplay) 
g  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
sUt) 
t (race) 

q  (uit  &  halt  exec) 


Enter  one  of  choices  below: 

Decimal  range  btwn  1  and  20 

T  -  uncontrolled  go 

'9'  -  to  abort  the  operation 


1  nd  i  ca  t  ed  nuj^Der^oj’'^i  ns  trs^  done^  ^ 
*  THE  DEBUGGER 


Enter  letter  of  operation: 


'■*>>>> 


d  (isplay) 

Q  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s(et) 
t (race) 

q  (uit  &  halt  exec) 

>d 

Enter  one  of  choices  below: 

m  (emory) 
r (egister) 
s  (tack  top) 
b (reak) 

*  (program  counter) 

>* 

Enter  one  of  following: 

!*  to  confirm  display  pc 
‘9*  to  abort  the  operation 

>! 

PRGfl  COU^^■ER  in  segment  0  at  offset  6. 


Enter  letter  of  operation: 

d  (isplay) 

?(o  execute) 

(list  debug  ops) 
r  (emove  break; 
s(el) 
t (race) 

q  (uit  &  halt  exec) 
>d 

Enter  one  of  choices  below: 

m  (emory) 
r (egister) 
s  (tack  top) 

Ej  (reak) 

*  (program  counter) 
>b 

Enter  T  to  continue 
or 

*•'  to  abort  the  operation: 

>! 


»«««««««««■»«««««««»«««» 

»  » 

*  BREAKPOINTS  * 

*  « 

««««««««*««»««««««««»«« 

BRKNUM  MEMADDR  OPCODE 
0 
1 

2  OOOOOOOC  ICSTOP 

3  OOOOOOOD 

4  00000006  IFWRITE 

5  00000009  ISPSHI_ 

6  00000004  1SPSHI_ 

7  00000002  IFWRITE 

Remove  Breakpoints 

Enter  letter  of  operation: 

d  (ispiay) 
a  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s  (et) 
t (race) 

q  (uU&  bait  exec) 

>r 

Enter  decimal  break  number  between  0  and  7 
or 

to  abort  the  operation: 

>0 

Breakpoint  not  In  Table. 

Enter  letter  of  operation: 

d  (ispiay) 
g  (o  execute) 

7  (list  debug  ops) 
r  (emove  break) 

s  (et) 
t  (race) 

q  (ult  a  bait  exec) 

>r 

Enter  decimal  break  number  between  0  and  7 
or 

to  abort  the  operation: 

>7 

Enter  letter  of  operation: 


d  (isplay) 
q  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
sUt) 

I  (race) 

q  (ult  &  bait  exec) 
>d 

Enter  one  of  choices  below: 

m  (emory) 
r (eglster) 
s  (tack  top) 
b (reak) 

*  (program  counter) 


Enter  T  to  continue 
or 

to  abort  the  operation: 

>! 


*  « 

»  BREAKPOINTS  » 
«  « 

BRKNUM  MEMADDR  OPCODE 
0 
1 

2  OOOOOOOC  ICSTOP 

3  OOOOOOOD 

4  OOOOOOOB  IFWRITE 

5  00000009  ISPSHI- 

6  00000004  ISPSHL 

7 

Enter  letter  of  opereg"" 

d  (Isplay) 
q  (o  execute) 

7  (list  debug  ops) 
r  (emove  break) 
shi) 
t (race) 

q  (u1t&  halt  exec) 
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Enter  one  of  choices  below: 

Decimal  range  btwn  l  and  20 

T  -  uncontrolled  go 

■#*  -  to  abort  the  operation 

>! 


**  BREAKPOINT  ENCOUffTERED  ** 

«««»««*««««««««««««««•»«»«««« 

*  THE  DEBUGGER  * 

»»»»««««««»»««««•««»«««»»»»» 


Enter  letter  of  operation: 

d  (isplay) 
g  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 

s  (et) 
t (race) 

q  (uit  &  halt  exec) 


Enter  one  of  choices  below: 

m  (emory) 
r (egister) 
s  (tack  top) 
b (reak) 

*  (program  counter) 


Enter  one  of  following: 

T  to  confirm  display  pc 
'9'  to  abort  the  operation 


PRGM  COUNTER  in  segment  0  at  offset  9. 


Enter  letter  of  operation: 


>r 


I 


3  (isplay) 

(o  execute) 

(list  debug  ops) 
r  (emove  break) 
s(et) 
t  (race) 

q  (uit  &  halt  exec) 
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Enter  decimol  break  number  between  0  and  7 
or 

'9'  to  abort  the  operation: 

>4 

Enter  letter  of  operation: 

d  (isplay) 
g  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s(et) 
t (race) 

q  (ult  &  halt  exec) 

>9 

Enter  one  of  choices  below: 

Decimal  range  btwn  1  and  20 
T  -  uncontrolled  go 
■  -  to  abon  the  aoeration 

>1 


**  BREAKPOINT  ENCOUNTERED  •* 

*  THE  DEBUGGER  * 


Enter  letter  of  operation: 

d  (isplay) 
g  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s(et) 
t (race) 

q  (uit  &  halt  exec) 


Enter  one  of  choices  below: 

m  (emory) 

'  (egister) 

3  ‘  tack  top) 

b (reak) 

*  (program  counter) 

>* 

Enter  one  of  following: 

T  to  confirm  display  pc 
>*  to  abort  the  operation 
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PRGM  COUNTER  in  segment  0  at  offset  12. 


Enter  letter  of  operation; 

d  (Isplay) 
g  (o  execute) 

?  (list  debug  ops) 
r  (emove  break) 
s(et) 
t (race) 

q  (ult  &  halt  exec) 

>g 

Enter  one  of  choices  below: 

Decimal  range  btwn  1  and  20 

T  -  uncontrolled  go 

a'  -  to  abort  the  operation 

>! 

AM:  End  of  execution  32 
_pc=OOOOOOOC 

»««««»««'»»«««««««««««»»«»««« 

*  THE  DEBUGGER  * 

»««««««««««««««»«»««»««»«««« 


Enter  letter  of  operation: 

d  (Isplay)  ^ 

?(o  execute) 

(list  debug  ops) 
r  (emove  break) 
s(et) 
t (race) 

q  (ult  &  halt  exec) 

>q 

Enter  one  of  following: 

T  to  END  DEBUG  AND  EXECUTION 
to  abort  ooeratlon: 

Enter  letter  of  operation: 

d  (Isplay) 

?(o  execute) 

(list  debug  ops) 
r  (emove  break) 

8(et) 


t (race) 

q  (ult  &  halt  exec) 

>g 

Enter  one  of  choices  below: 

Decimal  range  btwn  1  and  20 
'!*  -  uncontrolled  go 
-  to  abort  the  operation 


Enter  letter  of  operation: 

d  (Isplay) 
a  (o  execute) 

7  (list  debug  ops) 
r  (emove  break) 
s  (et) 
t  (race) 

q  (ult  &  halt  exec) 


Enter  one  of  following: 

T  to  END  0E8UG  AND  EXECUTION 
■#'  to  abort  operation: 


Exiling  Debugger,  Halting  Execution. 


The  following  symbols  are  used  to  describe  the  general  syntax  of  all  the 
debugger  comands; 

'd'  -  DISPLAY 

's‘  -  SET  or  STACK  (depending  on  context) 

'g'  -  60  AND  EXECUTE 

r  -  LIST  AVAILABLE  DEBUG  COMMANDS 

V  -  REMOVE  BREAKPOINT 

f  -  trace  execution 

m'  -  MEMORY 

T’  -  REGISTER 

-  PROGRAM  COUNTER 
segment  -  RESOURCE  SEGMENT  NUMBER 

offset  -  SEGMENT  OFFSET  ADDRESS 

span  -  NUMBER  OF  OPERATIONS  TO  BE  PERFORMED 
{}  -  ONE  ITEM  IN  BRACES  MUST  BE  CHOSEN 

i  -  OR 

'1'  ■  ON  or  OK  (depending  on  context) 

'z'  -  OFF 

brknum  -  BREAKPOINT  NUMBER 

/a(ue  -  DATA  value 


vaUtupe  -  DATA  TYPE 


APPENDIX  C:  DEBUGGER  PROGRAM  FILES 


Debugger  Header  File 


DEBUG.H  :  Basic  typedefs,  defines,  and  globals  for  the  AM  debugger. 
-AM  version  1.0  -  ZlOO 

-This  file  is  included  in  all  the  debugger  modules. 

Changes; 

V 

^ifndef  DEBUG_>1 

^define  DEBUG_H 


display  defines  *! 


■»  define 
^define 
^define 
^define 
^define 

DISPLMEM 

DISPLREG 

DISPLSTK 

DISPLBRK 

OISPLPC 

000 

010 

020 

030 

040 

/**  go  define 

«/ 

♦define 

GOEXEC 

100 

help  define 

♦define 

HELP 

200 

/**  remove  breakpoint  define 

♦define 

REMOVBRK 

300 

/**  set  defines  **/ 

♦define 

^define 

^define 

^define 

♦define 

SETMEMR 

SETREGR 

SE'i'ST'K 

5E"ERK 

SET_PC 

400 

410 

420 

430 

440 

trace  defines 

♦define 

TRACEOP 

500 

!*•  quit  defines  *♦/ 


^define  QUITDEBG 


/•*  atomic  types  and  defines  */ 


♦define 

♦define 

♦define 

♦define 

♦define 


UNDEFND 

TRUE 

FALSE 

MAXBRKS 

MAXEXECS 


♦define  MAXLINES 

*/ 


600 


-1 

1 

0 

8  /**  Max  ♦  of  breaks  allowed 

20  /**  Max  ♦  instrs  to  execute 

bef  ore  returning  to  debug  **/ 

20  /**  Max  Items  on  debug  screen 


♦define 


♦define 

input 


♦define 


♦define 

♦define 


MXDECSTR 

MXHEXSTR 


MXINPSTR 

TRACEON 

TRACEOFF 


12  /**  Max  chars  in  DECIMAL  input 

string:  10  for  chars  in  (NT 
string,  1  for  null  stnna 
terminator  and  I  for  sign 

5  /*  Max  chars  in  HEXIDECIMAL 

string;  4  for  chars  in  INT 
string  and  1  for  null  string 
terminator.  *♦/ 

2  Max  chars  in  PROMPT  input 
string;  1  forchar  in  prompt 
string  and  1  for  null  string 
terminator.  **/ 

-1  /**  Couldn't  use  1  due  to  span 

conflict.**/ 

0 


typedef  int  BOOLN;  /**  So  named  to  prevent  AM  def  conflict  **/ 

typedef  struct  { 
int  oprtn; 
long  rngebegn; 
long  rngespan; 

VAL  ’*val:  /**  VAL typedef  in  amtupe.h  *•/ 

acOLN  abortoo: 

}  OPTION; 

typedef  struct  { 

address  memaddr; 

,  short  opcdval; 

}  BREAKS; 


♦endif 


Debugger  Driver  File 


/“  DEBUG.C :  Driver  module  for  the  AM  debugger. 

-AM  version  1.0  -ZlOO 
Changes: 


^include  "amdef.h" 

^include  'amtype.h' 

■^include  ’amexterah" 
include  <setimp.h> 

^include  “debug.h" 

/*•  EXTERNAL  REFERENCES  **/ 


extern 

jmpJDuf 

’^.context; 

/« 

defined  in  main()/am.c  **/ 

extern 

char 

*stripblk(); 

/* 

from  debugutl.c  **/ 

extern 

short 

getopndO; 

/** 

from  aminstr.c  */ 

extern 

extern 

short 

qtopcdexQ; 

dispImemO; 

/** 

all  from  debugopr.c  **/ 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 


dispIregO; 

dispIstkO; 

displbrkO; 

displ^cQ; 

goexecO: 

RelpO; 

removbrkO; 

setmemrO; 

setregrO; 

setstkQ; 

setbrkQ; 

set_pc(): 

traceopQ; 

quitdebgO; 


extern  quitdebgQ; 

/«  GLOBAL  VARIABLES**/ 

OPTION  aeDq_opt; 

/**GETRESRC() 

function: 

-This  function  prompts  the  user  for  the  resource  to  be 
operated  upon  and  returns  the  key  character  for  the 
resource  indicated. 

interface: 


t'  V,' 


l'  *1* 


called  by; 

getoprO 

calls: 

stripblkQ/debugutl.c 


errors: 


char 

getresrcO 

{  char  **strptr; 

char  inpstrlMXlNPSTRl; 


/*»  MXINPSTR  =  2  «/ 


do  { 


r'printfCstdout,  "Enter  one  of  choices  below:\n\n"): 
fprintf(stdout,"\t\tm  (emory)\n\t\tr  (egjster)\n"); 
fprintf(stdout,’\t\ts  (tack  top)\n\t\tb  feak)\n”); 
fprintfCstdout/XtVt*  (program  counter AoVn”); 

f  scanf  (stdin,‘‘%ls”,inpstr); 

strptr  =  strjpblk(inpstr); 

if  (strlcn(strptr)  ==  0)  { 

fprintustdout/No  choice  enteredAn*); 
j  fprintf(stdout,"One  MUST  be  specif  iedAnXn”); 

else 

switch(strptr[01)  { 

case'm’:  return(’m’); 

case'r’:  return('r’); 

case’s':  return('s'); 

case’b’;  return(’b’); 

case  returnf”**'; 

default: 

f printf (stdout,"lnval  id  responseAn'); 


while  (TRUE); 
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/’♦GETOPRO 

function: 

-This  function  maps  the  ascii  user  operation  request 
into  an  debugger  operation  code  and  returns  the  code. 

interf  ace: 

called  by: 

debugO 

calls: 

stripblkQ/debugutl.c 

getresrcO 

errors: 

int 

getoprO 

{  char  **strptr; 

char  inpstrlMXlNPSTRl;  /*•  MXINPSTR  =  2  *♦/ 
do{ 

fprintf(stdout,"\nEnter  letter  of  operation:\n\n'); 
fprlntf(stdout,'\t\td  (isplay)\n\t\tg  (o  execute)\n'); 
fprintf(stdout,"\t\t?  (list  debug  ops)\n'); 
fprintf(stdout,"\t\tr  (emove  break)\n\t\ts  (et)\n’); 
fprintf(stdout,'\t\tt  (race)\n\t\tq  (uit  &  halt  execAnXn'); 
f  scanf  (stdin,"*ls'.inpstr); 

strptr  =  stripblk(inpstr); 

if  (strlen(strptr)  ==  0)  { 

fpnntffstdout/No  operation  enterBd.\n"); 
j  fprintf(stdout/Onc  MUST  be  specif ied.\n\n"); 

else 

3witch(strptr(01)  f 
case  'd': 

case  '3':  3witcn(getresrc())  [ 

case 'm':  if  (strptrlOl  ==  'd') 

returnfpiSPLMEM); 

return(SETMEMR); 

case  *r’:  if  (strptrlOl  ==  ’d') 

returrxDISPLREG); 

return(SETREGR); 


cas2  's':  if  (strptrfOl  ==  'd') 

return(DlSPLSTK); 

r2turn(SETSTK); 


cas2  'b':  if  (strptr[Ol  ==  'd') 

returrxDlSPLBRK); 
return(SETBRK); 
case  if  (strptr[0]  ==  'd') 

return(DISPL_PC); 

return(SET_PC); 


} 

case  'g':  return(GOEXEC); 
case'?';  return(HELP); 
case  ‘r':  return(REMOVBRK); 
case 't':  return(TRACEOP); 
case  'q':  return(QU!TDEBG); 


default:  fprintf(stdout, "Invalid  operation.\n*); 


) 

while  (TRUE); 

) 

/"DEBUGO 

function 

-This  is  the  driver  function  for  the  interactive  debug¬ 
ger. 

interface: 

(x)  breakflg/am.h 

(p)  i  instruction  pointer 

(p)  m  program  counter  value 

ig)  dBbg_opt  vanaole  for  deougger  ooeraticn 

called  by: 

main()/am.c 

calls: 

getopnd()/am  instr.c 

gtopcdex()/debugopr.c 

getoprO/ 


dispimemO/debugopr.c 

disp  i  regO/dePugopr.c 

dispistkO/debugopr.c 

dispIbrkQ/debugopr.c 

disp  i_pc()/ debugopr.c 

qo2xec()/debugopr.c 

nelp()/debugopr.c 

removbrkQ/  debugopr.c 

setmemrO/ debugopr.c 

setregrO/debugopr.c 

setstkQ/debugopr.c 

setbrkQ/debugopr.c 

3et_pc{)/debugopr .  c 

traceopQ/debugopr.c 

guitdeDgO/debugopr.c 


errors: 

*♦/ 

/ 

debu 
INST 
flAD  **m; 

{  Short  brknum; 

OPTION  “opt; 

BOOLN  diff_pc  =  FALSE; 

fprinlf(stdout 

fprintftstdout/NtXt^  THE  DEBUGGER  “\n’') 

fprjntf(stdout,*\t\t“““““““““““““““““““““““““*’““\n\n*); 

/“  Exchange  the  debug  opcodefor  the  regular  opcode**/ 

If  (breakfig)  { 

brknum  =  getopnd(j->val(Ol.opcdval): 
i->vall01.opcdval  =  gtopcdex(brknum); 
breakfig  =  0; 


opt  =  &debg_opt; 

Jo  { 

opt-^oprtn  =  UNDEFND: 

opt->rngebegn  =  UNDEFND: 
opt->rngespan  =  UNDEFND; 
opt->vaT=  NULL; 
opt->abortop  =  FALSE: 

switch(getopr())  { 


case  DISPLMEil: 

displmem(opt); 

break; 

case  DISPLREG: 

displreg(opt): 

break; 

case  OISPLSTK: 

displstk(opO: 

break; 

case  DISPLBRK: 

displbrk(opt); 

break; 

case  OiSPL_PC; 

displ_4)C(opt); 

break: 

case  GOEXEC: 

goexec(opt); 

break; 

case  HELP: 

heip(opt); 

breax; 

case  REMOVBRK; 

removbrk(opt); 

break: 

case  SETMEMR: 

setmemr(opt); 

break; 

case  SETREGR: 

setregr(opt); 

break; 

case  SET5TK: 

setstk(opt); 

break; 

case  SETBRK: 

setbrk(opt); 

break; 

case  SET_PC: 

set_pc(opt); 

break; 

case  TRACEOP: 

traceop(opt); 

break; 

case  QUITDEBG: 

c:uitdBbg(cpt); 

if  ((!(opt->abortop))  &&  (opt->oprtn  ==  GOEXEC))  { 
if  (diff_pc)  { 

debugflag  =  0:  /**  Keeps  debugger  from 

being  called  after  setjmpO 
In  main()/am.c  *♦/ 


Debugger  Operations  File 


t*  DEBUGOPR.C:  This  module  contains  the  SET  initialization  functions 
for  the  AM  debugger. 

-AM  version  I.O  -  Z100 

Changes: 

^include  ’amdef.h" 

♦include  "arntype-h” 

♦include  ’amextern.h" 

♦include  "debug.h“ 

r*  EXTERNAL  FUNCTIONS  */ 


extern 

extern 

extern 

extern 

char 

address 

“stripblkO; 

str2hexQ; 

str2dec0; 

cnv2addr0: 

/**  both  from  debugutl.c  “/ 

extern 

extern 

short 

short 

getopcodeO; 

getopndO; 

both  from  aminstr.c  **/ 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

char 

VAL 

STATE 

VAL 

STATE 

VAL 

“pmallocQ; 

fmallocQ; 

“fetchmO; 

storemQ; 

“fetchrO; 

storerO; 

**topstk(); 

/•*  all  fromamstate.c  **/ 

extern 

in 

storestkO; 

Z’*  an  EXCLUSIVE  debugger  function 

in  amstate.c  **/ 

extern 

char 

*‘amdefs(); 

/**  from  amcutl.c  “/ 

LCCALGLOBALVARIABLES’*  ' 


3CCLN  :nst_get  =  FALSE, /“  When  true,  used  to  keep  geivalueO  :Tcm 

allowing  recursive  calls  to  get_inst() 

long_segnum: 
long  .offset; 

static  BREAKS  brktablelMAXBRKS); 

static  short  mt_slots[MAXBRKSl; 

static  short  topslot; 


static 


3C0LN  mt_init  =  FALSE: 

Tells  if  mt_siots[]  initialized.  Note  the 
initialization  is  done  once!  (ref  ’C’  manual)’*/ 


/**GTOPCDEX() 

function; 

-returns  the  opcode  stored  in  the  tDrktabie  at  slot  'brknum'. 

interface: 

(p)  brknum 
(g)  brktabled 

called  by: 

debugij/debug.c 

copyval()/amcutl.c 

showmemO/amcutl.c 


calls; 


errors: 


4  / 


gtopcdex(brknum) 
short  brknum; 


if  (brktable(brknum].opcdval  ==  UNDEFND) 
return(0); 

return(brktable(brknuml.opcdval); 


/’♦GETRANGEO 

function: 

-This  function  prompts  the  user  for  range  value. 

interface: 

(p)  opt 
(p)  maxnum 

cailea  by; 

aipslmemt) 

dispIrcgO 

str2decO/dBbugutl.c 


calls: 

errors: 
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getranqe(opt,maxnum) 

OPTION  *opt: 

I'nt  maxnum; 

{  char  ’‘strptr; 

char  inpstr(MXDECSTRl; 
long  number; 

BOOLNvalidnum; 

do  { 

fprintf(stdout,'‘\t\t^  OPERATIONSPAN  *«\n\n"); 
fprintfCstdout,"Enter  decimal  number  between  1  "); 
fprintftstdout,"  and  ^d\n\t\tor\n“,maxnum); 
fprintustdout,”’®'  to  abort  the  operation:  \n"): 
fscanf(stdin,"^10s".inpstr); 

strptr  =  3tnpblk(fnDstr); 

if  (strptr(01  ==  ’@')  { 

opt->abortop  =  TRUE; 
return; 


str2dec(strptr,&validnum,&number); 
if  (Ivalidnum)  { 

fprintf(stdout, "Invalid  number  enteredAn*); 
,  continue; 


if  ((number  <  0)  M  (number  >  maxnum))  { 

fprintf(stdout, "Number  out  of  rangeAn*); 
continue; 


opt->rngespan  =  number; 
^  return; 

while  (TRUE); 

} 


'-GET_5EGn() 

i'unction: 

-This  function  prompts  the  user  for  segment  value. 

Interface: 

(p)  mxsegnum 
(p)  aborfop 

called  by: 


dipslmemO 

dispirsgO 

dispIstkO 

setmcmrO 

sciregrO 

SGtstkO 

SGtbrkQ 

S2t_pc0 

gGt_raaQ 

gGt_sadQ 

g2t_mad() 


striDblk()/d2bugutI.c 

sir2dGc{j/d6Dugutl.c 


errors: 


long 

q2t_SGgm(abortop,  mxsGgnum) 

SCOLN'^abortop: 

ini  mxsGqnum: 

{  char  ♦’strptr: 

char  inpstrlnXDECSTR); 
long  number; 
BOoLNvalidnum; 


fprintf(stdout, "Enter  decimal  segment  ^  between  0  "); 
fprintustdout,"  and  ^d\n\t\tor\n",mxsegnum); 
fprintustdout,"®'  to  abort  the  operation:  \n'); 
fscanf(stdin,*^10s",inpstr); 

strptr  =  stripblk(inpstr); 

if  (strptr[0]  ==  '@’)  { 

♦’abortop  =  TRUE; 

^  return(0); 


3tr2d2c(strotr.ivattdnum.inumDer^. 
if  'Jvalidnumj  { 

fprintf(stdout,*lnvalid  number  enteredAn"); 
continue; 


if  ((number  >=  0)  &&  (number  <=  mxsGgnum))  { 
return(number); 


rDnntf(stdout.'’5egm2nt  *  out  of  rangeAn"): 
continue; 


} 

while  (TRUE); 


/*‘GET_OFST() 

function: 

-This  function  prompts  the  user  for  offset  value. 

interface: 

(p)  mxof  f  set 
(p)  abortop 

called  by: 

dipsimemO 

dispIreaQ 

setmem'r() 

setrearO 

setbri<() 

3Ct_pcO 

get_radQ 

get_sad() 

get_mad() 


calls: 


stripblkQ/debugutl.c 

strZdecQ/debugutl.c 


errors: 


V 


long 

gct_ofst(abortop,  mxof f set) 

BOOLN**abortop; 

long  mxof f set; 

{  char  ♦‘strptr: 

cnar  'npstrfnXDECSTRl; 
one  number; 
BCOLNvaiidnum; 


do{ 


fprjntffstdout, "Enter  decimal  offset  between  0  "); 
fprintfistdout,"  and  5Kd\n\t\tor\n", mxof f set); 
fprintf(stdout,"'@’  to  abort  the  operation:  \n"); 
f  scanf  (stdin,"SJ  10s",inpstr); 
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strptr  =  stripblk(inpstr); 

if  (strptrlOl  ==  '@')  { 

^abortop  =  TRUE; 
^  return(0): 


sir2dec(strptr  &vaUdnum.3inumD2r): 
if  (Ivalidnum)  I 

fprintf(stdout,*Invalid  number  enteredAn"); 
continue; 


if  ((number  <  0)  j  |  (number  >  mxoffset))  { 

fprintf(stdout,'Offset  out  of  rangeAn"); 
continue; 


return(  number): 
while  (TRUE); 


} 

/‘‘DISPIMEMO 

function: 

-This  function  performs  the  'display  memory’  operation. 

interface: 

ip)  opt 

x)  _numusrseg/am.h 
x)  _pc/am.h 
X)  _mem(l/am.h 
g)  -segnum 
gj  -Onset 
x)  debgtask/am.h 

called  by: 

debug()/debug.c 


calls: 


getrange() 
tetchmO/amstate.c 
snowmemi  }/amcui  I  .c 
cnvZaddrO/debugurl.c 

str  ipbl  k()/ debugul  I  .c 

get-segmO 

get_ofst() 


errors: 


displmem(opt) 

OPTION  «opt; 

{  char  “strptr; 

char  inpstrlMXlNPSTRl; 
long  i; 

long  number; 
long  totalmem  =  0; 

BOOLNvalidnum; 

MAD  tmpaddr; 

opt->oprtn  =  DISPLMEM; 

do{ 

fprintf(stdout, 'Enter  one  of  followingAn’); 
fprintf(stdout,"\t\t'v‘  -  addr  value  promptXn"); 
fprintffstdout,”\t\t’^’  -  for  current  PC  valueXn"); 
rDrintf(stdout."\t\t'@'  -  to  abort  the  operation;  \n"); 
r  scanf(stdin,'’;^ls'’,inpstr); 

strptr  =  stripblk(inpstr); 

if  (strptrfOl  ==  '@')  ( 

opt->aborbp  =  TRUE; 
return; 


if  (strptrlOl  ==  ’♦*')  { 

-segnum  =  (_pc.val  &  >C_SEGMSK)  »  X_SEGSFT; 
-Offset  =  -pc.val  &  X_ADRMSK; 
getrange(opt, MAXLINES); 
break; 


if  (strptrlO]  ==  V)  { 

-segnum  =  get_segm(&opt->abortop,  _numusrseg  -  1); 

if  (opt->abortop) 
return; 

-Offset  =  get-ofst(&opt->abortop, 

-memLsegnumi.size  - 

if  (opt->abortop) 

return; 

getrange(opt.MAXLINES); 

break; 
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f printf(stdout.’lncorrect  respcnse.Vn"): 


while  (TRUE): 

if  (opt->abortop) 
return: 

debgtask  =  1; 

f printf(stdout,'Memaddr  Contenls\n\n*); 

!f  (opt->rngespan  ==  UNDEFND)  { 

tmpaddr.val  =  cnv2addr(_seanum_offset): 

^  snowmem(&tmpaddr,ietchm(^tmpaddr,Q)): 

else  { 

i  =  0: 

wrijle((i  <  ODt->rngesDan)  &&  (_seanum  <  _numusrseqj)  ; 
tmpaddr.val  =  cnv2addr(_seqnum^offset); 
showmem(&tmDaddr,fetchm(&tmpaddr,Q)): 
i*-": 

_oiTset++: 

if  Uoffset  == -memUsegnumlsize)  { 

^offset  =  0; 

_segnum++; 


} 

debgtask  =  0; 


} 


/“DISPLREGO 

function: 

-This  function  performs  the  'display  register'  operation. 


interface: 

(p)  opt 

fx)  _numregseg/am.h 
vx)  _reai]/3m.n'' 


Id  J  _3eqnum 

(gj  -Offset 
W  debgtask/am.h 


called  by: 

debug()/debug.c 


calls: 


‘•iS 


<,l  l_ 

'4 

»i,‘. 


**1*6 

4« 


sl 

■il 

s!? 


m 

m 

) 

I'l:? 

.I'lJ 

V>,'' 


qetrangeO 
r2tchr0/amstate.c 
showmcm()/amcutl  .c 
cnv2acldrQ/dcbuqutl.c 
stripbIkO/debuguil.c 
gct-^egm() 
get_ofstO 


errors: 


displreq(opt) 
OPTION  **opt; 


{  Char  *strptr; 

char  inpstriNXDECSTRl; 

long  i: 

long  number: 
long  numrcgs  =  0: 
BOOLNvalidnum; 

RAO  tmpreg; 

opt->oprtn  =  DISPLREG; 


I _ 


fprintf(stdout, “Enter  one  of  following:\n*); 
fprintf(stdout,"\t\tV'  -  addr  value  promptXn'); 
fprintf(stdout.’\t\t’@'  -  to  abort  the  operation:  \n"); 
f  scanf(stdin,“*ls",inpstr); 

strptr  =  stripbllc(inpstr); 

if  (strptr[0I  ==  'd')  { 

opt->abortop  =  TRUE; 

^  return; 

if  (strptrlOl  ==  'v')  { 

-^egnum  =  get_segm(&opt->abortop,  _numregseg  -  1); 

if  (opt->abortop) 
return; 

-Offset  =  get-ofst(&opt->aDortop^''egi_segnumi.num 


if  (opt->abortop) 
return; 


getrange(opt,nAXLINES); 


break: 


fprintf(stdout,‘Incorrect  responseAn'): 


while  (TRUE): 

if  (opt->abortop) 
return: 

debgtask  =  1: 

fprintf(stdout,"Rcgnum  Contents\n\n'): 

if  (opt->rngespan  ==  UNOEFND)  { 

tmpreg.val  =  cnv2addr(_seQnum^offset): 
showmem(&tmpreg,fetchr(&tmpreg,Q)): 


else  { 


i  =  0: 
while((i 


<  opt->rngespan)  &&  (_segnum  <  .numregseg)) 
tmpreg.val  =  cnv2addr(_seqnum_offset]; 
showmem(&tmpreg,fetchr(&tmpreg,Q)): 
i++: 

_offset++; 

if  (-Offset  == -regUsegnumlnum)  { 

-Offset  =  0: 

-segnum++: 


debgtask  =  0: 


/*»DI5PLSTK() 

function: 

-This  function  performs  the  'display  stack’  operation. 

interface: 

(p)  opt 

(x)  -numstkseg/am.h 
(xj  _stk(l/am.h 
(g)  -segnum 
debgtask/am.h 

called  by: 

debug()/debug.c 
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calls: 

cnv2addrQ/debuQutl.c 

stripbIkO/debuQutl.c 

get_s2gm() 

get_ofst() 


errors: 


displstk(opt) 
OPTION  «opt; 


{  Char  ‘‘strptn 

char  inpstr[MXDECSTRl; 
long  stksize  =  0; 

int  i: 

SAD  stktop; 


opt->oprtn  =  DISPLSTK; 


fprintf(stdout,"Enter  one  of  followlng:\n"); 
fprintf(stdout,”\t\t'v’  -  segment  value  prompt\n”); 
fprintf(stdout,"\t\t'@'  -  to  abort  the  operation:  \n"); 
fscanf(stdin,*^ls",inpstr); 

strptr  =  stripblk(inpstr); 

if  (strptr(0]  ==  *@*)  { 

opt->abortop  =  TRUE; 
return; 


if  (strptr[0l  ==  'v')  { 

_segnum  =  get_segm(&opt->abortop, 

_numstkseg  -  I); 

break; 


} 


f pr intf(stdout,"lncorrect  responseAn"): 


] 

while  (TRUE); 

if  (opt->abortop) 
return; 

debgtask  =  I; 

-Offset  =  _stkl_segnum].size  - 1; 
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stktop.val  =  cnv2aclclr(*seqnum_offs2t); 

fprintf(stdout,'‘Top  of  Stackin'): 
showmem(&stktop,topstk(&stktop,Q)); 

debgtask  =  0; 


/“DISPLBRKO 

function: 

-This  function  performs  the  'display  breaks'  operation. 

interface: 

(p)  opt 
(g)  brktable(] 

(g)  mt_init 
(gj  mt_slots(l 
(g)  topslots 

called  by: 

debugO/debug.c 

calls: 

stripblkQ/debugutl.c 

amdefsO/amcutl.c 

errors: 

“/ 

displbrk(opt) 

OPTION  ’’opt; 

{  char  ’’strptr; 

char  inpstrlMXINPSTRl; 
short  I; 

opt->oprtn  =  DISPLBRK; 
do{ 

fprintffstdout, "Enter  '!'  to  continue\n\t\tor\n"); 
fprintfCstdout."'©'  to  abort  the  operation:  \n"): 
rscanf(stdin,".'k]s".inpstr): 

strptr  =  3tnpoik(inpsir); 

if  (strptrfOl  ==  '©')  ( 

opt->abortop  =  TRUE; 
return; 


if  (strptrlOJ  ==  '!') 


fprintf(stdout.“lncorr8Ct  responseAn’’); 
while  (TRUE); 
if  (!mt_!nit)  ( 

for  (i  =  0:i  <  MAXBRICS:  ( 

mt_slots[i]  =  i; 
brktablc[i].memaddr  =  0; 
brktable(il.opcdval  =  UNDEFND; 


tODSiot  =  riAXBRKS  -  1; 
mt_init  =  TRUE; 


fDrintf(stdout,"\t\t*  '‘\n"): 

rprintf(stdout,''\t\t^  BREAKPOINTS 
fprintf(stdout,“\t\t** 

fprintnstdout  '■\^\t^*‘*♦**‘♦‘*‘**^^*’‘*♦*^****^*‘^*^n\n•'); 
rprintf(stdout,’'’BRKNUn  flEMADDR  OPCODEVn");  ’ 

for(i  =  0;  i  <  MAXBRKS;  i+-^)  { 

if  (brktable{ilopcdval  ==  UNDEFND) 
fprintf(stdout,"*6d\n",i); 

else  { 

fprintf(stdout,"%6d  *,  i); 
fprintf(stdout,"X08lx  ",  brktable(i].memaddr); 
f printf (stdout,"SJs\n*,  amdef s(brktable[ ilopcdval)); 


} 

/*‘D1SP1_PC() 

functiorv 

-This  function  performs  the  'display  program  counter’ 
opcratioa 

interf  ace: 

(p)  opt 
[)<}  _pc/am.h 
(g)  -segnum 
(g) -offset 

called  by: 

debug()/debug.c 


calls: 


stripbIkO/debugutl.c 


errors; 


displ_pc(opt) 

OPTION  *‘opt: 

{  char  ^strptr: 

char  inpstrlMXlNPSTR]; 

opt->oprtn  =  DISPL_PC; 

do{ 

fprintf(stdout,  “Enter  one  of  rollowina'sn''); 
fprintHStdout.'XtXt'!'  to  confirm  display  pc  \n"); 
fprintf(stdout,"\t\t*@'  to  abort  the  operation  \n"); 
fscanf(stdin,"^ls',inpstr): 

strptr  =  stripdik(inpstr): 

if  (strptr(0]  ==  '@')  { 

opt->abortop  =  TRUE: 
return: 

} 

if  (strptrlOl  ==  '!')  { 

-segnum  =  (_pc.val  &  X^EGMSK)  »  X_SEGSFT; 
-Offset  =  -pcval  &  X_ADRI1SK; 
fprintf(stdout,"\n\t\tPRGM  COUNTER  in  segment  %\6  ", 
,  -segnum); 

fprintf(stdout,*at  offset  *ld.\n”^offset); 
return; 


^  fprintf(stdout, "Incorrect,  responseAn"); 

while  (TRUE); 


/“GOEXECO 

function: 

-This  function  initiates  the  rest  of  the  oromots  for  the 
go  execution'  operation. 

interface: 

(p)  opt 

(xj  Ieft2do/am.h 
(x)  debgcntl/am.h 

called  by: 

debugO/debug.c 


calls; 


str2decQ/clebugutl.c 

stripblkQ/debugutl.c 


errors: 

goexec(opt) 

OPTION  *opt; 

{  char  inpstrinXDECSTR]; 
char  **str; 

BOOLNvalidnum; 
long  number; 

opt->oprtn  =  GOEXEC; 

do  { 

fprintf(stdout, "Enter  one  of  choices  belowAn"); 
fprintf(stdout,'\t\tDecimal  range  btwn  1  and  ^d\n*,MAXEXECS): 
f  pr  intf  (stdput,"\t\t‘!’  -  uncontrol  led  goVn"): 
fprintf(stdcut,"\t\t'a'  -  to  abort  the  operation\n\n"); 
fscanf(stdin,'‘^lls",inpstr); 

str  =  stripblk(inpstr); 

if  (str[0]  ==  ’@0  { 

opt->abortop  =  TRUE; 
return; 


if  (sMO]  ==  ’!’) 

return; 

str2dec(str,&val  idnum,&number); 
if  (Ivalidnum])  { 

fprintf(stdout, "Invalid  number  enteredAn"); 
continue; 


if  ((numoer  <  0  !  !  (number  >  ^AXEXECS))  { 

forirnffstaoui/Numper  out  of  ranae.Vn  '); 
continue; 


left2do  =  number; 
debgcnti  =  I; 
return; 


wnile(TRUE); 

> 

i 

/*HELPO 

function: 

-This  function  displays  the  debugger  commands  available. 

interface: 

(p)  opt  • 

called  by: 

debug()/debug.c 

calls: 


errors: 


V 


helotoot) 

OPTION  »«opt: 

f  char  strinxiNPSTRl; 

opt->oprtn  =  HELP; 

fprintf(stdout,”\t\t  Debugaer  Commands  \n"); 


fprintf(stdout,“ 
fprlntfCstdout," 
fprintf(stdout,"’g’(o) 
fprintf(stdout,*7’(list 
fprintf(stdout,"'s’(et) 
fprintustdout," 
fprintustdout," 
fprintftstdout," 
fprintustdout," 
fprintf(stdout,"’t'(race) 


fprintf(stdout  '*\t\t***^MM***^*(*********^^**********'**\n'*); 
fprintfCstdouti"’d’(isplay)\t'm’(emory),  {'**'  |  seg:offset},  span\n"); 
fprintftstdout,"  \t'r'(egister),  seg:offset,  spanXn"); 

fprlntfistdout,"  Xt’s'ttack  -  top  only),  segXn'); 

Xt’b 'freaks  -  alOXn’O; 

Xt'** '(program  counter)Xn'); 

Xt{'!'  I  n  <instrs>}Xn"); 
available  debug  commands)Xn*): 
Xt'm'(emory),  seg-.offset,  val_type,  valXn"); 
Xt'r'fegister),  seg:offset,  vaLtupe.  valXn*): 
Xt's'ftacktop,  seg,  vaLtype,  valxn"); 

Xt'b 'freak),  seg:oTfsetXn^); 

Xt'**'(program  counter),  seg:offsetXn"); 

F(oft  -  ■' 


Xt'l 


<  TRACEXn’); 


fprintffstdout,"  Xt'z'(off)  STARTEDXn"); 

fprintustdout."  Xtforntnstrs  BY 'GO'>\n"): 
f'Dr’ntffstdcut.  ”r(uit  teoua  and  halt  2xecution)\n''X 
■■Dr:niffstacut.''Leqena:  -  cr.  []  -  opi’cnai,  <>  -  comment 

fprintfCstdout,-  ij-.lust  choosean  uem.\n\n”); 
fprintf(stdout,”Enter  non-blank  char  to  continue.Xn”); 
f  scanf(stdin,"JKls",str); 
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/*»REnOVBRIC() 

function: 

-This  function  removes  a  breakpoint  at  a  specified 
memory  location 


interface: 

ip)  opt 

x)  debgtask/am.h 
g)  mt_init 
g)  brktabled 
gj  tbps  lot 
gj  mL^lotsd 
iO  Q/am.h 


called  by: 

debug()/debug.c 


calls; 


str  ipo  IkQ/debugut  I .  c 
str2decQ/dcbu^tl.c 
f  etchmn/amstatc.c 
3torem0/amstate.c 
env  2addr()/debuqut  I  .c 


errors: 


removbrk(opt) 
OPTION  **opt; 


{  char  **strptr; 


Char  "strptr; 

char  inpstr[l1XDECSTRl; 

int  i; 

long  number; 

BOuLNvalidnum; 

VAL^v; 

MAD  m; 

BREAKS  *«brkptr; 


opt->oprtn  =  REMOVBRK; 


fprintf(stdout, "Enter  decimal  break  number  "); 
fprintfistdout/between  0  and  a>d\n\t\tor\n",MAXBRKS-l); 
fprintfistdout,'*®’  to  abort  the  operation:  \n"); 
f  scanf  (stdin,"Ji{4s",inpstr); 


strptr  =  stripblk(lnpstr); 


if  (strptrlOl  ==  *@‘)  { 

opt->abortop  =  TRUE; 
return; 


str2dec(strptr.&validnum,&number); 
if  (Ivalidnum)  ( 

fprintf(stdout,*lnvalid  number  enteredAn"); 
,  continue; 


If  ((number  <  0)  |  (number  >  (MAXBRKS  -  1)))  { 
rprintf(stdout, "Number  out  of  rangeAn"); 
continue; 


opt->rngebegn  =  number; 

^  break; 

while  (TRUE); 

if  (!mt_init)  { 

for  (i  =  0:i  <  MAXBRKS;  \**)  { 
mt_siots{il  =  i; 
brktable(ij.memaddr  =  0; 

^  brktable(i].opcdval  =  UNDEFND: 

topslot  =  MAXBRKS  -  1; 
mUnit  =  TRUE; 


if  (topslot  >  MAXBRKS  -  2)  { 

fprintf(stdout/Break  Table  emptu\n*); 
return; 


If  (brktable[opt->rngebegn].opcdval  ==  UNDEFND)  ( 
fprintf(stdout, "Breakpoint  not  In  TableAn'); 
return; 


debgtask  =  I; 

brkptr  =  8ibrktable(opt->rngebegnl; 
m.val  =  brkptr->memaddr; 
v=  fetchm(&m,Q); 

v->instrval.val[0].opcdval  =  brkptr->opcdval; 

storem(v,&m,Q); 

brkptr->memaddr  =  0; 

brkptr->opcdval  =  UNDEFND; 

mt_slots(*+topslotl  =  opt->rngebegn; 


} 


debgtask  =  0; 


/••TRACEOPO 

function: 

-This  function  initiates  the  rest  of  the  prompts  for  the 
the  'traceop'  operatioa 

interface: 

(p)  opt 

Ck)  debgcntl/am.h 
(X)  left2do/am.h 
(x)  dbgtrace/am.h 

called  by: 

debug()/debug.c 


calls: 


str  ipb  I  kQ/dcbugopr.c 
str2dec0/debugopr.c 


errors: 


*/ 

traceop(opt) 

OPTION  «opt: 

{  char  *»strptr; 

char  irpstrfnXDECSTRl; 

Int  i: 

long  number: 

BOoLNvalidnum: 

opt->oprtn  =  TRACEOP; 

do{ 

fprinlustdout, "Enter  one  of  followlng:\n'); 
fprintf(stdout,”\t\tOecimal  number  between  I  and  ”); 
fprintf(stdout,"JKd\n".MAXLINES); 
fprintf(stdout,"\t\t’r  for 'trace  on’\n"); 
fprintf(stdout,"\t\t'2*  for  'trace  off’Nn"); 
fprintustdout,"\t\t'®'  to  abort  the  operatiortXn"); 
scanf(stdia’'*10s".inpstr); 

strptr  =  stripblk(inpstr); 

if  (strpMOl  ==  ’@*)  { 

opt->abortop  =  TRUE; 
return; 


If  (strptrlOl  ==  T)  { 


opt->rngespan  =  TRACEON; 
dbgtrac2  =  1; 
dePgcntI  =  0; 
return; 

} 

if  (strptrfOl  ==  'z')  { 

opt->rngespan  =  TRACEOFF: 
dbgtrace  =  0; 
debgcnti  =  0: 
return; 


str2dec(strptr,&validnum,&number); 
if  (Ivalidnum)  ( 

fprlntf(stdout."!nvalid  number  enteredAn”); 
continue: 

} 

if  ((number  <  1)  |  |  (number  >  MAXLINES))  { 

fprintf(stdout/Number  out  of  rangeAn"); 
continue: 

} 

ieft2do  =  number; 
dbgtrace  =  I: 
debgcnti  =  I: 

^  return; 

while  (TRUE); 

/♦’QUITDEBGO 

function: 

-Upon user  confirmation,  this  function  exits  the  debug¬ 
ger  and  halts  program  execution. 

interface: 

(p)  opt 

called  by: 

debug()/dcbug,c 


calls; 


stri 

exit 


^lk()/debugopr 


.c 


errors: 


"/ 
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quitdet3q(opt) 

OPTION^opt: 

{  cfiar  *strptr; 

char  inpstrlNXlNPSTRl: 

opt->oprtn  =  QUITDEBG: 

do{ 

fprintf(stdout, "Enter  one  of  followingAn'); 
fprintf(stdout,"\t\t'!*  to  END  DEBUG  AND  EXECUTION\n"); 
fprintf(stdout,"\t\t'@'  to  abort  operatiorcXn"); 
f  scanf(stdin,'3J  ls".inpstr); 

strptr  =  stripblk(inpstr); 

if  (strptrCO]  ==  '@0  { 

opt->abortop  =  TRUE: 
return: 


if  (strptrtOl  ==  ’!')  { 

fprintffstdout.’Exiting  Debugger,  Halting  ExecutionAn") 
exit  (O): 


f pr  intf (stdout, "Incorrect  responseAn"); 

}  ,  , 

while  (TRUE); 

/**GET_BOOL() 

function: 

-This  function  initializes  the  bool va I  structure,  promp¬ 
ting  the  user  to  enter  the  actual  value  part  of  the 
structure. 

interface: 

(p)v 

(p)  abortop 

called  bu; 

getvaiueO 

calls: 

stripblkO/debugutl.c 


errors: 


getJ)ool(v,abortop) 

VAL’^v; 

BOOLN*abortop; 

{  char  ^‘strptr; 

char  inpstrlMXlNPSTRl; 

v->boolvai.type  =  V_BOOL: 

do{ 

fprintf(stdout, "Enter  letter  of  your  choiceAn"); 
fprintffstdout,"\t\tt(rue)\n\t\tualsc)\n’): 
fprintf(stdout,"\t\t@(abort  operationVn"); 
fscanf(stdin,"*ls',jnpstr); 

strptr  =  stripblk(jnpstr); 

switch(strptr(01)  { 

case  t':  v->Poolval.val  =  t': 

return; 

case  'f v->boolval.val  =  'f'; 

return; 

case  *abortop  =  TRUE; 

return; 

default:  fpnntf(stdout,*Bad  responseAn"); 


) 

while  (TRUE); 


} 

/“GET-NATO 

function: 

-This  function  initializes  the  natval  structure,  promp 
ting  the  user  to  enter  the  actual  value  part  of  the 
structure. 

interface: 

(p)  V 

(p)  abortop 

called  by: 

getvaiueO 


calls: 

stripbIkQ/debugutl.c 

strzdecO/debugutl.c 


errors: 


qet_nat(v,abortop) 

BOOLN^abortop: 


{  long  number: 


lorw  number: 
BOCLNvalidnum; 
char  “strptr: 
char  inpstr[nXDECSTR]; 


v->natval.type  =V__NAT; 
do  { 


fprintf(stdout, 'Enter  decimal  number  betweenVn'): 
fprintf(stdout.'\t\tO  and  65535\nor\n'): 
fprintfCstdout,'\t\t'®'  to  abort  the  operation:\n"); 
fscanf(stdin,'*10s'.inpstr); 


strptr  =  stripbikdnpstr): 


if  (strptr[0l  ==  { 

**abortop  =  TRUE: 
return: 


str2dec(strptr,&validnum,&number): 


if  (Ivalidnumi)  { 

fprintf(stdout, 'Invalid  number  enteredW); 
continue; 


if  ((number 


tr  <  0)  1 1  (number  >  65535))  { 
fprintf(s(dout,'Number  out  of  rangeAn"); 


continue; 


v->natval.val  =  number; 
return; 


while  (TRUE); 


/*‘get_:nt() 

function: 

-This  function  initializes  the  intval  structure,  promp¬ 
ting  the  user  to  enter  the  actual  value  part  of  the 
structure. 


interface: 

(p)  V 

(p)  abortop 


called  by; 

getvalueO 

calls: 

stripbIkQ/debugutl.c 

str2decO/debugutl.c 

errors: 

*/ 

get_int(v.abortop) 

VAL  “v; 

BOOLN  '‘abortop; 

{  long  number: 

BOuLNvalidnum; 

char  '♦strotr; 

char  inostrtfIXDECSTRI: 

v->intval.type  =  V_iNT: 

do  { 

rprintfCstdout/Enter  decimal  number  betweenXnXn'”); 
rprintf(stdout,‘’\t\t  -2147483647  i  2147483647  (no 
fprintf(stdout,'or\n\t\t'@'  to  abort  the  operatioruVn'); 
f  scant (stdin,  I  Is  inpstr ); 

strptr  =  stripblk(inpstr); 

if  (strptrfOl  ==  '@')  ( 

’’abortop  =  TRUE; 
return; 


str  2dec(str  ptr  ,&  va  I  idnum,&number ); 
if  (Ivalldnum)  { 

fprintf(stdout, "Invalid  number  enteredAn"); 
continue; 


v->tntvai.val  =  number: 
return: 

while  (TRUE); 

) 

/“GET.CHARO 

function: 

-This  function  initializes  the  charval  structure,  promp¬ 
ting  the  user  to  enter  the  actual  value  part  of  the 
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structure. 

interface: 

(p)  V 

(p)  abortop 

called  by: 

getvaiueO 


calls: 


getcharO/  "system* 


errors: 


get_char(v,abortop) 

VAL*»v; 

BOOLN  "abortop; 

{  char  ch; 

v->charval.type  =  V_CHAR: 

fprintfCstdout, "Enter  character\n\t\tor\n"); 
fprintf(stdout,"‘@'  to  abort  the  operatiortXn"); 

ch  =  getcharO;  /*»  MUST  be  done  to  CLEAR  LAST  NEWLINE  CHARACTER 

user  typed.  **/ 

ch  =  getcharO; 

if  (ch  =='©’){ 

**abortop  =TRUE; 
return; 


v->charval.val  =  ch; 
return; 


/*»GET_CSTR0 
f  unction: 

-This  function  initializes  the  cstrval  structure,  promo¬ 
ting  the  user  to  enter  the  actual  value  part  of  the 
structure. 

interface: 

(p)v 

(p)  abortop 
called  by: 


^  »  ...  -  . 


pmal  locQ/amstate.c 
getcharO/  ^system* 
getsQ/  '♦system** 
strcpyO/  ^system** 


errors: 


get_cstr(v,abortop) 

VAL*»v: 

BOOLN**aPortop; 

{  char  str[81]; 
char  **ptr; 
char  **gets(); 
char  ch: 

v->cstrval.typc  =  V_CSTR: 


fprintf(stdout, "Enter  char  string  (max  80  chars)\n"); 
fprintf(stdout/\t\tor\n'@'  to  aoort  the  operatiortXn'); 


ch  =  getcharO;  /♦♦  MUST  be  done  to  CLEAR  LAST  NEWLINE 

character  user  typed.  *♦/ 

ptr  =  gets(str); 


if  (ptr  !=NULL){ 

if  (strlOl  ==  '©')  { 


•♦abortop  =  TRUE; 
return; 


v->cstrvaLval  =  pmalloc(strlen(str)  ♦!); 

strcpy(v->cstrval.val,  str); 

return; 


^  fprintf(stdout, "Error  in  reading  string.Xn"); 

while  (TRUE); 

/**GET_MAD() 

function: 

-This  function  initializes  the  madval  structure,  promp¬ 
ting  the  user  to  enter  the  actual  value  part  of  the 


structure. 


interface: 

(p)v 

(p)  abortop 

called  by: 

getvaiueO 


calls: 

cnv2addrQ/debuqutl.c 

stripblkO/debugutl.c 

get_segmO 

get_ofst() 


errors: 


get_mad(v, abortop) 
VAL«V; 

BOOLN  ♦‘abortop; 


{  char  ♦‘strptr; 

char  inpstrlMXlNPSTRl; 
long  _seqnum; 
long  -Offset; 

v->madval,type  =  V-MAD; 

do( 

f printffstdout, "Enter  one  of  f ol  lowing:\n'); 
fprjntf(stdout,"\t\tV'  -  memaddr  value  promptXn"); 
fprintf(stdout,"\t\t'@’  -  to  abort  the  operation:  \n"); 
fscanf(stdin,"aj1s",inpstr); 

strptr  =  stripblk(inpstr); 

if  (strptrlO)  ==  *@')  { 

♦‘abortop  =  TRUE; 
return; 


if  (strptr(01  ==  'v')  { 

-segnum  =  get_segm(aPortop,_numusrseg  -  I); 


if  (♦‘abortop) 

return; 


-Offset  =  get-ofst(abortop, 

_jnnem[_segnuml.size  -  1); 


if  (“aDortop) 

return: 

v->madval.val  =  cnv2addr(_segnum, -offset); 
return; 

} 

fprintf(stdout,"!ncorrect  responseAn'); 


while  (TRUE): 


/“GET-RADO 

function: 

-This  function  initializes  the  radval  structure,  promp¬ 
ting  the  user  to  enter  the  actual  value  part  of  the 
structure. 

interface: 

[\>}  aoortop 

called  by: 

getvalueO 


calls: 


cnv2addr()/debugutl.c 

stripbIkO/detMjgutl.c 

get-segmO 

get_ofstO 


errors: 


get_rad(v,abortop) 

VAL 

BOOLN^abortop; 

{  char  *«strptr: 

char  inpstrfnxiNPSTRl; 
iong  _seanum: 
long  -Offset; 

v->radval.type  =  V-RAD; 

do{ 

fprintustdout, 'Enter  one  of  following:\n'); 
fprintf(stdout,"\t\tV'  -  regaddr  value  promptXn"): 
fprintf(stdout,'\t\t'©'  -  to  abort  the  operation:  \n"); 


107 


f  scanf  (stdin,''^1s'‘.inpstr): 

strptr  =  stripplk(jnpstr); 

if  (strptr[0]  ==  '@0  { 

**abortop  =  TRUE: 
return; 

} 

if  (strptrtOl  ==  'v')  { 

_segnum  =  get_segm(abortop^mregseg  -  1); 

if  (“abortop) 

return: 

-Offset  =  get-ofst(abortop^egI_segnum].num  -  I); 

if  (’’abortop) 

return: 

v->radvaLvai  =  cnv2addr(_segnum, -offset); 
return; 

} 

f pr intf (stdout, "Incorrect  responseAn"); 
while  (TRUE): 


/«GET-SAD() 

function: 

-This  function  initializes  the  sadval  structure,  promp¬ 
ting  the  user  to  enter  the  actual  value  part  of  the 
structure. 

interface: 

(p)v 

(p)  abortop 

called  by: 

getvalueO 

calls: 

cnv2addrQ/debuqutl.c 

stripbIkO/debugutl.c 

get^egmp 

get-Ofst() 

errors: 


do{ 

fprintf(stdout,“Enter  one  of  following:\n*); 
fprintf(stdout,"\t\tV*  -  stkaddr  value  promptXn'); 
fprintf(stdout."\t\t'@*  -  to  abort  the  operation:  \n’); 
f  scanf(stdia"9»1s",inpstr); 

strptr  =  stripdlk(inpstr); 

if  (strpMOl  ==  '©')  { 

“abortop  =  TRUE; 
retura 

} 

if  (strptrfO)  ==  V)  { 

_scgnum  =  geL>segm(abortop,  jiumstkseg  -  1); 

If  (♦‘abortop) 

retura 

-Offset  =  get_ofst(abortop^tkLsegnuml.slze  -  I); 

if  (**abortop) 

retura 

v->sadval.val  =  cnv2addr(_segnum,  -offset); 
return; 


fprintfCstdout, "Incorrect  responseAn"); 
while  (TRUE); 


/-GET-FILEQ 

functloa 

-This  function  Initializes  the  fileval  structure,  promp¬ 
ting  the  user  to  enter  the  actual  value  part  of  the 


structure. 


interface: 

(p)  V 

(p)  abortop 

called  by: 

getvalueO 


calls: 


stripbIkQ/debugutl.c 

str2dec0/debugutl.c 


errors: 


qet_file(v.abortop) 

VAL  *v; 

BOOLN  *3bortop; 

{  long  number; 

BOOLNvalidnum; 

char  ’♦strptr; 

char  inpstrlMXDECSTRl; 

v->flleval.type  =  V»F1LE; 

do  { 

fprintftstdout, "Enter  decimal  number 
fprintustdout/between  0  and  SJd\n\t\tor\n’^mfiles  -  1); 
fprintftstdout,"'®'  to  abort  the  operation:\n"); 
fscanf(stdin,"JKlls",inpstr); 

strptr  =  stripblk(inpstr); 

if  (strptrlOl  ==  '@')  { 

**abortop  =  TRUE; 
return; 


str2dec(strptr,&validnum,&number); 
if  (Ivalidnum)  { 

fprintf(stdout, ’’Invalid  number  entered. \n"); 
continue; 


if  ((number  <  0)  |  (number  >  _numf iles  -  1))  { 

fprintf(stdout, "Number  out  of  range.Xn"); 
continue; 


v“>fiieval.val  =  number; 
return; 


while  (TRUE); 


} 

/“GETJNSTO 

function: 

-This  function  initializes  the  instrval  structure,  promp 
ting  the  user  to  enter  the  actual  value  part  of  the 
structure,  it  resets  global  file  var  'inst_get'  to  FALSE 
just  before  function  termination. 

interface: 

(p)v 

(p)  abortop 
(g)  inst_get 

called  by: 

getvaiueO 


calls: 

getopndO/aminstr.c 

getopcodeO/aminstr.c 

gctvalueO  /"  Note  that  this  is  a  recursive  call  "/ 

pmallocQ/amstate.c 

str2hexQ/debugutl.c 

stripblkQ/debugutl.c 


errors: 


get_inst(v, abortop) 

VAL*‘v; 

BOOLN  ♦‘abortop; 

{  long  number; 
BOoLNvalidnum; 
char  ♦‘strptr; 
char  inpstr(nXHEXSTRl; 
int  i; 
int  j; 

VAL*‘p; 


v->instrval.tupe  =  VJNSTR; 
inst_get  =  TRUE; 

do{ 


fprintf(stdout, "Enter  HEX  opcode\n\t\tor\n"); 


abort  the  operatiorcNn"); 


fprintustdout,"'®'  to  abort 
fscanf(stdin,’'^4s',inpstr); 

strptr  =  stripblk(inpstr); 

if  (strptr[0]  ==  ’@0  { 

"•abortop  =  TRUE: 
inst_get  =  FALSE; 
return; 


str2hex(strptr,&validnum,&number); 
if  (Ivalidnum)  { 

fprintf(stdout, “Invalid  number  entered.\n“); 
continue: 


if  ((number  <  0)  |  (number  >  0x6fff))  { 

fprlntf(stdouL"Invalid  opcodeAn"); 
continue; 


if  (getopcodc(number)  ==  ILDBG)  { 

f pr intf (stdout,“Breakpoint  opcode enteredAn”); 
fprintf(stdout, 'Opcode  can't  be  enteredAnXn'); 
continue; 


j  =  getopnd(number); 

v->instrval.val  =  (VAL**)  pmalloc(sizeof(VAL)*‘  j); 
v->instrval.val[Ol.opcdval  =  number; 
p  =  v->lnstrval.val; 

for(i  =  1;  I  <  j;  \**)  { 

fprintf(stdout,"\t\t  ******  Entering  Operand  ♦^d'.i); 
fprintf(stdout,"  ***‘’*\n'); 
getvalue(&p[n,  abortop); 

if  (♦*abortop)  { 

inst_get  =  FALSE; 
return; 


inst_get  =  FALSE; 
return; 


while  (TRUE); 


/»‘GET«nOP0 

function: 

-This  function  initializes  the  mopval  structure,  promp 
ting  the  user  to  enter  the  actual  value  part  of  the 
structure. 

interface: 

(p)  abortop 

called  by: 

getvalueO 

calls: 

str2hexQ/debugutl.c 

stripblkQ/debugutl.c 

errors: 

*/ 

qet_mop(v,abortop) 

VAL  **7: 

BOOLN^abortop; 

{  long  number: 

BOOLNvalidnum: 

char  “strptr; 

char  inpstrInXHEXSTRl; 

v->mopval.typc  =  V_riOP; 

do{ 

fprlntf(stdout."Enter  HEX  number  •); 
fprintftstdout, "bet ween  0  and  ffff\n\t\tor\n'); 
fprintftstdout,"’©'  to  abort  the  operatlortXn"); 
f  scanf(stdjn,"X4s",lnpstr); 

strptr  =  stripblk(inpstr); 

if  (strptrtO]  ==  '©')  ( 

“abortop  =  TRUE: 
return: 

str2hex(strptr,&validnum,&number); 
if  (Ivalidnum)  { 

fprintf(stdout,"lnvalid  number  entered.\n’); 
continue; 
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if  ((number  <  0)  |  (number  >  65535))  { 

fprintf(stcJout.''Number  out  of  rangeAn"): 
continue; 


v->mopval.val  =  number; 
return; 


while  (TRUE); 


/*»GETJDOP() 

function: 

-This  function  initializes  the  dopva I  structure,  promp¬ 
ting  the  user  to  enter  the  actual  value  part  of  the 
structure. 


interface: 


V 

abortop 


called  by: 

getvalueO 


calls: 


errors: 


str2hexQ/debugutl.c 

stripblkQ/debugutl.c 


get_dop(v, abortop) 

VAL*»v; 

BOOLN  "abortop; 

{  long  number; 
BCXJLNvalldnum; 
char  "strptr; 
char  InpsfrtMXHEXSTRl; 

v->dopval.type  =  V_DCP: 

do{ 


fprintf(stdout,’Enter  HEX  number  "); 
fprintfistdout.'between  0  and  ffff\n\t\tor\n'); 
fprintftstdout,"©’  to  abort  the  operation:\n"); 
f  scanf(stdin,'JK4s',inpslr); 

strptr  =  stripblk(lnpstr); 


if  (strptr[0]  ==  { 

^abortop  =  TRUE: 
return: 

) 

str2hex(strptr,&validnum,&number); 
if  (Ivalidnum)  { 

fprintf(stdout, "invalid  number  enteredAn'); 
continue; 


if  ((number  <  0)  |  !  (number  >  65535))  { 

fprintf(stdout, "Number  out  of  rangeAn"); 
continue: 


v->dopval.val  =  number; 
return; 

} 

wfliic  (TRUE); 


/*‘6ET_R0P() 

function: 

-This  function  initializes  the  ropval  structure,  promp 
ting  the  user  to  enter  the  actual  value  part  of  the 
structure. 

interface: 

(p)  V 

(p)  abortop 

called  by: 

getvalueO 

calls: 

str2hexQ/debugutl.c 

strlpblkQ/debugutl.c 

errors: 


^et_rop(v, abortop) 

BOOLN**abortop; 

{  long  number; 
BOOLNvalidnum; 


»*•! 
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1 
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char  '‘strptr; 

char  inpstrinXHEXSTR]; 


v->ropval.typG  =  V_ROP; 
do{ 


for intf(stdout, ’Enter  HEX  numoer 
fprlntfistdout, "between  Q  and  ffff\n\t\tor\n"); 
fprintf{stdout.'"@'  to  abort  the  operatioruNn"); 
f  scanf(stdin,"a)4s',inpstr): 


strptr  =  stripbiKirpstr); 


if  (strptr(0l  ==  ( 

*‘abortop  =  TRUE; 
return; 


str2hex(strptr,&validnum.&number); 


if  (ivalidnum)  { 

fprintf(stdout.”Invalid  number  entered-Xn"): 
continue; 


if  ((number  <  0)  |  1  (number  >  65535))  { 
fprintf(stdout,"Number  out  of 


continue; 


of  rangeAn"): 


v->ropval.val  =  number; 
return; 


while  (TRUE); 


/*«GET_BOP() 

function: 

-This  function  initializes  the  bopval  structure,  promp¬ 
ting  the  user  to  enter  the  actual  value  part  of  the 
structure. 


interface: 


V 

abortop 


called  by; 

getvaiueO 


calls: 


str2hex()/debugutl.c 


stripbikQ/debugutl.c 


errors: 


get_bop(v.abortop) 

VAL  «v: 

BCXDLN  ’♦abortop; 

{  long  number; 

BOuLNvalidnum; 

char  '♦strptr; 

char  inpstrlMXHEXSTR]; 

v->bopval.type  =  V_BOP; 

do{ 

fprintf(stdout,  “Enter  HEX  number  '■); 
fprintnstdout, "between  0  and  ffff\n\t\tor\n"); 
fprintftstdout/’^'  to  abort  the  operatiorcXn"); 
fscanf(stdin,"^4s*,inpstr): 

strptr  =  stripblk(inpstr); 

if  (strptr(01  ==  '@')  { 

“abortop  =  TRUE; 
return; 


str2hex(strptr,&validnum,&number); 
if  (Ivalidnum)  { 

fprintfCstdout/Invalid  number  enteredAn”); 
continue; 


if  ((number  <  0)  |  (number  >  65535))  { 

fprintf(stdout, "Number  out  of  rangeAn’); 
continue; 


v->booval.vai  =  number; 
return; 

whiie  (TRUE); 


1 

/’♦GETVALUEO 

function: 

-This  function  prompts  the  user  for  value  of  type  VAL 


which  can  be  placed  into  memory,  a  register  or  the 
stack. 


interf  ace: 

(p)v 

(p)  abortop 
(g)  inst_get 


called  by: 

setmemrO 

setregrO 

setstkQ 

get_inst()  /*  Note  --  indirect  recursive  call!!  */ 


calls: 

str2decQ/debugutl.c 

stripblkO/debugutl.c 

get_boolO 

get_natQ 

get_int() 

get_charQ 

geLcstrO 

get_madQ 

get_mad() 

geLjadQ 

get_sadO 

get_fileQ 

get_instQ 

geLjnopQ 

get_dopn 

gcL-ropQ 

get_bopO 


errors: 


^etvalue(v, abortop) 

BOOLN’**abortop; 

{  char  ♦‘strptr; 

char  inpstr(riXDECSTRl:  /«  ^1XDECSTR  =  !2  **/ 
int  number: 

BOCLNvalidnum; 

do{ 


fprlntf(stdout,"\t\t  *‘*‘**’*  Entering  Value  to  be  Stored 

fprintf(stdout, "Enter  number  "); 

fpr int f(stdout, "besides  type  desired:\n\n"); 


fprintf(stdout.“\t  1  -  BOCL\t  2  -  NAT  \t  3  -  'NT  ’): 
fprintf(stclout,"\t  4  -  CHAR\n\t  5  -  CSTR  \t  6  -  MAD  "); 
fprintf(stdout/\t  7  -  RAD  \t  3  -  SAD\n\t  9  -  FILE  "): 

if  (!inst_get)  { 

fprintf(stdout.'\tlO  -  lNSTR\tll  -  MOP  \tl2  -  DOP\n'); 
^fprintf(stdout,’‘\t13  -  ROP  \tl4  -  30P  \t  ®  -  3Port  cpVn"); 

else  { 

fprintf(stdout.“\tll  -  MOP  \tI2  -  DOP  \tl3  -  ROP\n'): 
^fprintustdout,"\tl4  -  BOP  \t  @  -  abort  op\n*); 

fscanf(stdin/JKlIs”,inpstr); 

strptr  =  stripblk(inpstr); 

if  (sirptrfOl  ==  '@')  ( 

“abortoo  =  TRUE; 
return; 

} 

.  3tr2dec(strptr,3»validnum,&number); 
if  (ivaiidnum)  { 

fprintfCstdout/lrwalid  numoer  entered/xn"); 
continue; 

} 


switch(number)  { 

case  1:  geL-bool(v,abortop); 

return; 

get_nat(v,abortop); 
return; 

get_int(v,abortop); 
return; 

get_char(v,abortop); 
return; 

get_cstr(v,abortop); 
return; 

get_mad(v,abortop); 
return; 

get_rad(v.abortop); 
return; 

aeT_3aa(v.3Dor:oDj; 
return; 

get_file(v,abortop); 
return; 


case  2 
case  3 
case  4 
cases 
case  6 
case  7 
case  a 
case  9 


case  10:  if  (!inst_get)  { 


} 


get_inst(v,abortop): 

return; 
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) 


] 


while  (TRUE); 


f pr intf (stdout,  "Incorrect  numder. 
break: 

case  il:  get_mop(v,adortop); 

return; 

case  12:  gct_dop(v.abortop): 

return: 

case  13;  get_rop(v,abortop): 

return: 

case  14:  gct_bop(v,abortop); 

return; 

default:  fprintf(stdout,*Incorrect  number. Xn"); 


.n”): 


/“SETMEMRO 

^unction; 


-This  function  performs  the  set  memory'  operation. 


mterf  ace: 

(p)  opt 


iqj  ^egnum 
Cg)  -offset 
(x)  debgtask/amJi 

called  by: 

debug()/debug.c 


calls: 


strjpblk()/debugutl.c 
getvalueO 
I BtchmQ/amstate.c 
storemQ/amstate.c 
pmallocQ/amstate.c 
f  mal  locQ/amstate.c 
cnv2addr()/debugutl.c 
getopcodeO/aminstr.c 


errors: 


BOOLNop^abort  =  FALSE; 

VAL^v; 

MAD  m; 
short  brknum; 

opt->oprtn  =  SETMEMR; 

do  { 

fprintustdout, “Enter  one  of  followingAn"): 
fprintf(stdout,"\t\tV'  -  memaddr  value  promptXn"): 
fprintf(stdout,"\t\t'@'  -  to  abort  the  operation:  \n"); 
fscanf(stdin,*^1s*,inpstr): 

strptr  =  stripblk(inpstr); 

If  (strptr[0]  ==  ’@*)  { 

opt->abortop  =  TRUE: 
return: 

} 

if  (strptr(0]  ==  'v')  { 

_segnum  =  gcL_segm(&opt->abortop, 

_numusrseg  -  I) 

if  (opt->abortop) 
return; 

-Offset  =  geL.ofst(&opt->abortop, 

-memUsegnumlsize  -  0; 

if  (opt->abortop) 
return; 

opt->val  =  (VAL**)  pmalloc(sizeof(VAL)); 
getvalue(opt->val,&op_abort): 

break; 

) 

fprintf(stdout, "Incorrect  responseAn*); 


while  (TRUE); 

f  :opt->aocrtcp  =  cp-aocrt}/**  Assignment  .ntendea!!  * 

return; 

debgtask  =  1; 

m.val  =  cnv2addr(_segnum, -Offset): 
v  =  fetchm(&m,Q): 


if  (v->type  ==  VJNSTR)  { 

if  (getopcode(v->instrval.val[0].opcdval)  ==  1LDB6)  { 
do{ 

fprintf(stdout,'Br2akpoint  at  memaddrAn'); 
fprintfistdout, "Enter  '!'  to  confirm  set\n"); 
fprintf(stdout.”\t\tor\n'@’  to  abort  opAn*); 
f  scanf(stdin,‘^ls",inpstr); 


strptr  =  stripblk(inpstr); 


if  (strptrlOl  ==  *@*)  { 

opt->abortop  =  TRUE; 
debgtask  =  0; 
return; 


if  (strptrlOl  ==  *!')  { 

brknum=getopnd(v->instrval.val(0].opcdvai): 
3torem(opt->val,&m,Q); 
fmaiioc(opt->val); 
brktableibrknuml.memaddr  =  0; 
brktableibrknuml.opcdval  =  UNDEFND: 
mUslotsl+^topslotl  =  brknum; 
debgtask  =  0; 
return; 


f pr intf (stdout.“lncorrect  responseAn'); 


while  (TRUE); 


storem(opt->val,&m,Q); 
fmalloc(opt->val); 
debgtask  =  0; 


/“SETREGRO 

function: 


-This  function  performs  the  'set  register'  operation. 


interface: 

(p)  opt 


(g)  -segnum 
(q)  -offset 


called  by: 

debug()/debug.c 


stnpbikQ/debugutl.c 

getvaluep 

pmailocp/amstate.c 

fmailoc()/amstate.c 

cnv2addr()/debugutl.c 

errors: 

sctregr(obt) 

OPTION  *opt; 

(  Char  ‘‘strptr: 

char  inpstr[MXINPSTR]; 
BOOLNop_abort  =  FALSE; 
RADr; 


opt->oprtn  =  SETREGR; 
do  { 

rpnntf(stdout, '’Enter  one  of  following:\n"); 
fprintftstdout/NtVt’v'  -  regaddr  value  promplXo"); 
fprintustdout/XtXt'©'  -  to  abort  the  operation  \n’): 
f  scant  (stdin,“*ls',inpstr): 

strptr  =  stripblk(inpstr); 

if  (strptr(0l  ==  { 

opt">abortop  =  TRUE; 
return; 


if  (strptrlO]  ==  'v')  { 

-segnum  =  get_segm(&opt->abortop, 

_numregseg  -  I); 

if  (opt->abortop) 
return; 

-Offset  =  geUofstt&opt->3bortcp. 

-regi-segnumj.num  - 

if  (opt->abortop) 
return; 

opt->val  =  (VAL**)  pmalloc(sizeof(VAL)); 
getvalue(opt->val,&op_abort); 


fprjntf(stdout,“lncorrect  responseAn"); 


} 

while  (TRUE): 

if  (opt->aPortop  =  op_adort)  Z’*  Assignment  intended!! 
return; 

r.val  =  cnv2addr(_segnum.  .offset); 

storer(opt->val.&r.Q}; 

rmalloc(opt->val); 


} 

/“SETSTKO 

function: 

-This  function  performs  the  'set  stack'  operation. 

interface: 

(p)  opt 
(g;  .segnum 

called  by: 

debug()/debug.c 

calls: 

stripblk()/debugutl.c 

getvalueQ 

pmallocQ/amstate.c 
fmallocQ/amstate.c 
cnv2addr()/debugut  l.c 


errors: 


V 

setstk(opt) 

OPTION  ^opt; 

{  char  ’♦strptr; 

char  inostn'riXINPSTRl: 

30GLN  op_^bcrt  =  FALSE; 

5A0  s; 

opt->oprtn  =  SETSTK; 
do{ 

fprintf(stdout, 'Enter  one  of  f ol  lowjng:\n’); 
fprintf(stdout,'\t\t’v'  -  regaddr  value  prompt\n"); 
fprlntf(stdout,’\t\t’®'  -  to  abort  the  operation:  \n"); 


f  scanf(stdia“^ls“.inpstr); 

strptr  =  stripblk(inpstr); 

if  (strptrlO]  ==  ’@')  { 

opt->abortop  =  TRUE; 
return; 


if  (strptrlO]  ==  'v')  { 

-segnurn  =  geL_segm(&opt->abortop, 

-numstkseg  - 1); 

if  (opt->abortop) 
return; 

opt->val  =  (VAL**)  pmalIoc(sizeof(VAL)); 
getvalue(opt->val.&op_abort); 

break: 

} 

fprintf(stdout, "Incorrect  responseAn"); 
while  (TRUE); 

If  (opt->abortop  =  op_abort)  /**  Assignment  intended!! 
return; 

_offs8t  =  _stkl_segnum].si2e  -1; 
s.va!  =  cnv2addr(_scgnum,«offset); 
storestk(opt->va!,&s;; 
fma!!oc(opt->va!); 

) 

/»‘SETBRK() 

function: 

-This  function  sets  a  breakpoint  at  an  memaddr  with  an 
instructioa 

interface: 

I'p)  opt 

x)  aebgtask/am.h 
g)  mt_init 
g)  brktabled 
g)  topslot 
g)  mt.slots[l 
gj  ^segnum 


debug()/(jcbug.c 


calls: 

stripblkO/debugutl.c 
gctopcodcO/aminstr.c 
retchmO/ amstate.c 
storemO/amstate.c 
cnv  2addr()/debugut  l.c 


errors: 


setbrk(opt) 

OPTION  *«opt; 

(  cftar  **strptr: 

char  !npstr(nxiNPSTRl; 
short  opcode: 

VAL  “v; 

MAD  m; 
short  i; 

BREAKSbrk: 

opt->oprtn  =  SETBRK; 

do{ 

fprintfCstdout, "Enter  one  of  foIlowlng:\n*); 
fprintf(stdout,"\t\tV'  -  memaddr  vame  promptXn"); 
fprintf(stdout,"\t\t'@'  -  to  abort  the  operation:  \n"); 
fscanf(stdin,"^ls",inpstr); 

strptr  =  stripblk(inpstr); 

if  (strptrlO]  ==  ’©’)  { 

opt->abortop  =  TRUE; 
return; 


if  (strptrlOl  ==  V)  { 

-segnum  =  get_segm(&opt->abortop, 

-humusrseg  -  0: 


if  (opt->abortop) 
return; 

-Offset  =  get-ofst(&opt->abortop, 

_memLsegnuml.si2e  - 1); 


if  (opt->abortop) 


I 

[3r2ak: 

} 

fprintf(stdout, “Incorrect  responseAn“); 


while  (TRUE); 
if  (ImUnit)  { 

for(i  =  0;i  <nAXBRKS;  \**)  { 
mt_slots[i]  =  i; 
DrKtableiilmemaddr  =  0; 
brlctat)le(i1.0Dcdvai  =  UNDEFND: 

} 

topslol  =  MAXBRKS  -  1: 

nnt_init  =  TRUE; 


if  Uopslot  <  0)  { 

fprintf(stdout,“Break  Table  FullAn"); 
return; 


debgtask  =  1; 

m.val  =  cnv2addr(--segnum,  -offset); 

V  =  fetchm(&m,Q); 

if  (v->tupe  !=  VJNSTR)  { 

Tprintf(stdout, "Sorry,  non-lnstr  at  memaddrAn'); 

debgtask  =  0; 

return; 


if  (getopcode(v->instrval.vallOl.opcdval)  ==  ILDBG)  { 

fprintf(stdout, "Sorry,  Breakpoint  already  at  memaddrAn"): 

debgtask  =  0; 

return; 


Drk.oocdval  =  v->instrval.y3i(0|.oDcdval: 
brk.memaadr  =  m.val; 

opcode=  ((mt_siotsltopslotl  «  X_OPNDSF)  |  (ILDBG)); 
v->lnstrval.val[0].opcdval  =  opcode; 
brktable[mLslots[topslot]].memaddr  =  brk.memaddr; 
brktablelmLslotsitopslot]l.opcdval  =  brk.opcdval; 
topslot--; 

storem(v,&m,Q); 
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dedgtask  =  0: 


/“SET.PCO 

function: 

-fhis  function  performs  the  'set  program  counter' 
opcratioa 

interface: 

(p)  opt 

^xj  _numusrseg/am.h 

tx)  _pc/am.h 

(X)  _mem(]/am.h 

(g)  _segnum 

(gj  -Offset 

(x)  debgtask/am.h 

called  by: 

debug()/debug.c 


stripdikQ/deDugutl.c 
fetcnm(;/amstate.c 
cnv  2addr  Q/dedugut  I  .c 
get-scgmO 
get-ofst() 


errors: 


-/ 


set_pc(opt) 

OPTION  *^opt; 

{  char  ♦’strptr; 

char  inpstrlllXlNPSTRl; 

VAL’^v; 

MADm; 

opt->oprtn  =  SET_PC; 

do  { 

*Drintf(stdcut,  ';nter  one  of  roilowina:\n'’); 
fprintustdout,  '\t\t'v'  '  progcntr  vafue  prompt\n'): 
fprintf(stdout.’’\t\t’@’  -  to  abort  the  operation:  \n’); 
fscanf(stdin,’’*ls",inpstr); 

strptr  =  stripblk(inpstr); 

if  (strptrlOl  ==  '@')  { 

opt->adortop  =  TRUE; 


if  (strptr[Ol  ==  ‘v’)  { 

_segnum  =  get_segm(&opt->abortop, 

_numusrs2g  - 1); 

if  (opt->abortop) 
r2turn: 

-Offset  =  get_ofst(&opt->abortop, 

-memLsegnumlsize  - 1): 

if  (opt->abortoo) 
return; 

break; 


r printf(s jdcut,"!nccrrect  response.Xn"): 


while  (TRUE): 
debgtask  =  1; 

m.val  =  cnv2acl(Jr(-segnum,  -offset); 

V  =  fetchm(&m,Q); 

if  (v->tupe  1=  V-INSTR)  { 

Tprintffstdout, "Sorry,  non-instr  at  memaddrAn"); 
fprintf(stdout, 'Program  counter  unchanged.  \n'); 
opt‘>abortop  =  TRUE; 
return; 


-pc.val  =  m.val; 
debgtask  =  0: 


Debugger  UtiHty  File 


/“DEBUGUTL-C  :  This  file  contains  the  utility  programs  for  the  Afl 

debugger. 

-AM  version  1.0  -  ZlOO 
Changes: 

*»/ 


♦include  'amdef-h" 

♦include  'amtypc.h' 

♦include  "amexterah" 

♦include  "debug.h’ 

/*CNV2ADDR() 

function: 

-This  functions  converts  its  parameters  into  a  regular 
segmented  memory  address. 

interf  ace: 

(p)  _segnum 
(pj^offset 

called  bu: 

dispImemO/dcbugopr.c 

removbrkQ/debugopr.c 

setmemr()/debugopr.c 

setbrkQ/debugopr.c 

sct_pc()/debugopr.c 

geL_madp/debugopr.c 

disp  I  regy/debugopr  .c 

setregrn/debugopr.c 

get_radn/debugopr.c 

aispIstkQ/debugopr.c 

setstkO/debugopr.c 

get_sad()/debugopr.c 


calls: 

errors: 


*♦/ 

address 

cnv2addr(_segnum,  -offset) 
long  -segnum: 


{ 

^  return((_3egnum  «  X_SEG5FT)  |  -offset); 

/"STRIPBLKO 

function: 

-This  functions  strips  leading  blank  characters  from  a 
character  string- 

interface: 

(p)  str 


called  bi 


^ispimemO/debugoor.c 

disD  i  r  egO/ debugopr  .c 

dispibrkQ/debugopr.c 

dispIstkQ/debugopr.c 

displ-pcQ/debugopr.c 

gctopr()/dcbug.c 

getresrcQ/deoug.c 

get  va  I  ueO/debugopr .  c 

goexcc( )/  debugopr  .c 

remo  vbrkO/debugopr .  c 

setmemrO/debugopr.c 

setregr()/debugopr.c 

setstkQ/ debugopr -c 

setbrkQ/dcbugopr.c 

set-pcQ/dcbugopr-c 

traceopQ/debugopr.c 

guitdebgQ/debugopr.c 

get-magp/debugopr.c 

get_radQ/debugopr.c 

get-sadO/debugopr.c 

get-jnt()/debUQopr.c 

get_bool()/debugopr.c 

get_f  i  le()/debugopr.c 

get_mopp/debugopr.c 

^t-bopQ/debugopr.c 

get_ropQ/debugopr.c 

get-dopQ/debugopr.c 

get_inst()/debugopr.c 

get-segm()/dcbugopr.c 

gct_of  stp/debugopr.c 

quitdebgO/debugopr.c 


calls: 

strlen()/  **systcm** 

errors: 


*»/ 

char 
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’♦stripblklstr) 
cfiar  »*str: 

int  incl2x  =  0; 
int  Ingth; 

Ingth  =  strlen(str); 

while  ((index  <  Ingth)  &&  (strOndexI  ==  '  ')) 
index++: 

^  retijrn(str  +  index); 

/«STR2HEX() 

function: 

-Converts  an  unsigned  hex  character  string  into  its 
integer  equivalent.  !!  Warning  !!  The  function  can  and 
does  modify  the  pointer  to  the  input  string  parameter! 
The  max  string  length  the  function  assumes  is  four  (4) 
for  conversion  to  regular  hexidecimai  integer. 


interface: 

(P)  3tr 
(p)  validnum 
(p)  Intptr 

called  by: 

get_inst(ydebugopr.c 

getjnopQ/debugopr.c 

geL-dopO/debugopr.c 

get-ropQ/debugopr.c 

get_bopO/debugopr.c 

calls: 

errors: 

-Initializes  parameter  'validnum'  with  the  results  of 
of  the  conversion. 

3tr2hex(str,vai  idnum.intptr) 
char  '"str; 

300LN  ^validnum; 

long  ♦‘intptr; 

{  int  index  =  0; 
int  maxchars; 

str  =  stripblk(str); 


if  (str!en(str)  ==  0)  { 

’‘validnum  =  FALSE; 
return; 

} 


"intptr  =  0; 


nnaxctiars  =  nXHEXSTR  -  !; 

while  ((((str( index]  >=  '0')  &&  (strfindexj  <=  '9'))  1 1 
ustr[index]  >=  *a’)  &&  (strfindex]  <=  'f')))  && 
(index  <  maxchars))  { 


if  ((str[index]  >=  '0')  &&  (strfindex]  <=  ’9')) 

'*intptr=  i6  **  (*intpir)  str[index*+j  -  O’; 
else 

*‘intptr=  16  *•  (*‘intptr)  ♦  (str[index++]  -  'a')  ♦  10; 


3ir  =  istrtindexj; 
str  -  stripDlk(str); 

’’validnum  =  (strlen(str)  ==  0)  ?  TRUE  ;  FALSE; 


/’’STR2DE 


function: 

-Converts  an  signed  or  unsigned  character  string  into 
its  long  integer  equivalent,  n  Warning  jj  The  function 
can  ana  does  modify  the  pointer  to  fne  irput  string  para¬ 
meter!  The  max  string  length  the  function  assumes  is 
eleven  (11)  for  conversion  to  regular  signed  integer. 


1 

I 


interface: 

(p)  str , 

(p)  validnum 
(p)  intptr 

called  by: 

get_scgm()/debugopr.c 

get-_of  stQ/dcbugopr.c 

getrangeQ/debugopr.c 

goexec()/debugopr.c 

tr  aceooO/debuqopr .  c 

rsmovorkij/debuqopr.c 

get_int(ydebugopr.c 

get_nat(ydebugopr.c 

get_f  1 1  eQ/debugopr.c 

getvalueO/debugopr.c 


calls: 


strlen()/  ’•system” 


errors: 


-Initializes  parameter  Validnum'  with  the  results  of 
of  the  conversioa 


*! 


str2clec(str,validnum,intptr) 
char  '’str; 

BOOLN  ‘‘validnum; 
long  "intptr; 

{  int  index  =  0; 

int  maxcnars; 

int  strsizB; 

BOOLN  ncgnum  =  FALSE; 

long  maxnum  =  2147483647; 

maxchars  =  MXDECSTR  -  2; 

if  (str!en(str)  ==  0)  { 

“validnum  =  FALSE; 
return; 

i 

if  (strtOl  ==  ■-')  { 

negnum  =  TRUE; 
str  =  &str(IJ; 


if  (strlen(str)  ==  0)  { 

"validnum  =  FALSE; 
return; 


"intptr  =  0; 

Index  =  0; 

while  (((strlindex]  >=  ’O’)  &&  (str[indexl  <=  ’9’)) 

&&  (Index  <  maxchars)  &&  ("Intptr  <=  maxnum))  { 

"intptr  =  10  "  ("intptr)  ♦  (str(index++]  -  ’O’); 


} 


str  =  istri  index); 
str  =  stripblk(str); 

"validnum  =  (strleiXstr)  ==  0)  ?  TRUE  :  FALSE; 
if  ("validnum)  { 

"intptr  =  negnum  ?  0  -  "intptr  :  "Intptr; 


} 


'v1 

•••.I 
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